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1 .0 



GENERAL PROGRAM INFORMATION. 



1.1 



Program Purpose (Abstract) 



This program has the ability to test memory from address 
000000 to address 757777. It does so using:' 

A. Unique addressing techniques 

B. Worse case noise patterns, and 

C. Instruction execution thruout memory. 

There is also a special routine to type out all unibus 
address ranges which do not timeout* as well as two(2) toggle 
in address tests pre 'ided in section 6.1 of this document. 

The intent of this program is to test as comprehensively as 
possible all memory systems manufactured by DEC without 
concentrating on any one system. Although the tests relate 
to general designs they may be complete fc certain systems. 
E.G. Any core memory from the 8K MM11-L on up need not have 
any other addressing or worst case patterns run but in order 
to completely test the MS11-K MOS memory another diagnostic 
is required. This test is also not intended to be a* 100% 
test of the merrory. Other tests that do I/O may find memory 
problems that this test is unable to. 



A. Hardware Requirements 

PDP11 family processor with a minimum of 16K of memory, 
optional ... 

Any parity memory control module. 
KT11 memory management. 

B. Software Requirements 

The smallest unit of memory this program will recognize 
is 4K. If any address in a 4K bank causes a time out 
trap, that entire bank of memory is ignored by the 
program 

The program is designed to exercise the vector portion of 
memory (locations 0-776) in exactly the same manner as 
the rest of memory. To make thi^ possible, without 
requiring memory management, no software traps are used 
in the program. This means that if memory management is 
not available or is disabled ('"■'M12«1), if the program is 
relocated out of bank 0, if location 0-776 are selected 
for test* and if an unexpected hardware trap occurs, th® 
results will be unpredictable. 



1.2 



System Requirements 
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The program has the proper interface code to allow 
running under the automated manufacturing test line 
system - ACT11 and APT. 

1.3 Related Documents and Stariards 

A. Programming Practices - Document No. 175-003-009-01 

B. PDP-11 MAINDEC SYSMAC Package - MAlNDEC-1 1 -DZ0AC-C2-D 

C. The applicable Memory System Maintenance Manual 

D. The applicable Circuit Schematics 

1.4 Diagnostic Hierarchy Prerequisites 

Before running this program, a CPU diagnostic should be run 
to verify the functionality of the processor and PDP-11 

instruction set. 

If memory management is to be used, then the KT11 diagnostic 

should also be run before this program. 



PDP- 


1 1 /20 




MAINDEC- 


1 1 


-DZOKC 






PDP- 


1 1/34 




MAINDEC- 


1 1 


-DFKTH 






PDP- 


ll/'.O 




MAINDEC- 


1 1 


-DBOEA 








OR 


MAINDEC- 


1 1 


-DCOKC 






PDP- 


1 1/45 




MAINDEC- 


1 1 


-DCQKC 






PDP- 


1 1/60 




MAINDEC- 


1 1 


-DOKDA 






KT1 1 


-c 




MAINDEC- 


1 1 


-DCKTA 


THRU 


DCK.-F 


KT1 1 


-D 




MAINDEC- 


1 1 


-DBKTA 


THRU 


DBKTF 



1 . 5 Assumpt i ns 

This program assumes the correct operation of the CPU and, if 
used, the memory management option. 

2.0 OPERATING INSTRUCTIONS 

2.1 Loading and Starting Procedures 

2.1.1 Load the program using any standard absolute loader. 

2.1.2 Starting address 200: 
Normal program execution. 

2.1.3 Starting address 204: 

AllOiAi/s the operator to input, via teletype conversation, 
first and last addresses to he exercised, ar.j a data pattern 
to be used in tests 6 and 7. 

2.1.4 Starting Address 210: 

Restart program using previously selected parameters. 
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2.1.5 Starting Address 214: 

Restore loaders and halt. This routine is capable of 
relocating the program back to banks and 1 if the program 
was halted while running the top two banks of memory. There 
are special procedures required for this situation. 

A. If memory addresses 0-1000 have r ^t been exercised, 
either through parameter selection (SAs204) or by running 
wi th SW05=1 , then; 

Load Address 214, 
Press START. 

B. If running without memory management, then: 

Load Address <21 4+rel ocat i on factor> 

(Relocation factor is typed when the program is 

relocated) , 
Press START. 

C. If running with memc'y management and the unibus has not 
been initialized (via reset instruction, start • swi tch , 
etc. ) , then: 

Load Address 777707 (PC) 
Deposit 214 
Press CONTinue 

D. If running with memory management and thr unibus has been 
i ni t i al i zed: 

Load Address 772340 (KIPARO) 

Deposit <(relocation factor)/100> 

(Example: Relocation f actor=540000 , then 

deposit 005400) 

Load Address 777572 (SRO) 

Deposit 000001 

Load Address 777707 (PC) 

Deposit 214 

Press Continue 



2.1.6 , Starting address 220: 

Byte address memory ma^. typeout routine. This routine 
performs DATI , DATIP, DATO, and DATOB on all possible 
addresses, and types the ranges of addresses which do not 
cause a timeout trap. 

2.2 Special Environments 



If the program is run in quick verify mode under ACT11 or 
APT11 the program Is done after the first pass. Also, the 
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2.3 



program does not relocate to test the lower 8K of memory. 
Program Options 



SW15 




1 


OR 


UP. . . 


HALT ON ERROR 


SW14 




1 


OR 


UP. . . 


LOOP ON TEST 


SW13 




1 


OR 


UP. . . 


INHIBIT ERROR TYPEOUT 


SW12 




1 


OR 


UP. . . 


INHiflIT MEMORY MANAGEMENT ( INITIAL 

START ONLY) 


SW1 1 




1 


OR 


UP. . . 


INHIBIT SUBTEST ITERATION 


SW10 


s 


1 


OR 


UP. . . 


RING BELL ON ERROR 


SW9 




1 


OR 


UP, . . 


LOOP ON ERROR 


5W8 




1 


OR 


UP. . . 


LOOP ON TEST IN SWR<4:0> 


SW7 




1 


OR 


UP. . . 


INHIBIT PROGRAM RELOCATION 


SW6 




1 


OR 


UP, . . 


INHIBIT PARITY ERROR DETECTION 


note: 


With parity 


error detection enabled, a memory failure 



while running the worse case noise tests (non-parity) 
can cause a parity error. The error printout on a 
parity error does not type the good data. Thus a bit 
drop or pickup will not be typed as such. It is best 
to run the program for 1 pass with parity disabled, 
then, restart thf' program with paritv enabled. 



SW5 = 1 OR UP.. 



INHIBIT EXERCISING VECTOR AREA 
( LOCATIONS 0-1000) . 



2.4 EXECUTION TIMES 

Execution time is dependent on type of memory, and amount of 
memory. Worse case run times with 900ns memorys are: 



For Non-Parity Memory 

First Pjss: 65 seconds for first 

seconds for each additional 16k. 



13k 



15 



Full Pass: 3 minutes 40 seconds for first 16k + 

3 minutes for each additional 16k. 

Iteration Inhibited: same as first pass 



For Parity Memory 
First Pass: 



1 minute 40 seconds per 16k. 
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Full Pass: 8 minutes per 1 6K 

Iteration Inhibited: same as first pass 

3.0 ERROR INFORMATION 

3.1 Error Reporting 

There are a total of 31(8) ^ypes of error reports generated 
by the program. Some ' the key column he iJing mnemonics are 
described below for clarity: 

PC = Program Counter of error detection code, 

(V/PC=P/PC) 

V/PC = Virtual Program Counter. This i where the error 
detection code can be found in the program listing. 

P/PC = Physical Program Counter. This is where the error 
detect i on code is actually 1 ocated in memory. 

TRP/PC = Physical Program Counter of the code i^hich caused a 
trap. 

MA - Memory Address 

REG = Parity REGister address. 

PS = Processor Status word. 

lUT = Instruction Under Test. 

S/B = What contents Should Be. 

WAS = What contents WAS. 

3.2 Error Hal ts 

With the 'HALT ON ERROR' switch {SW15) not set there are 
several programmed 'HALTS' in the program: 

A. In the error trap service routine for unexpected traps to 
vector 4. This one will occur if a 2nd trap to 4 occurs 
before the error report for the first has had a chance to 
be printed out . 

B. In the relocation rout-ne if the program is being 
relocated back to the first 8K of memory and the program 
code was not able to be transferred properly. 

C. In the case of error reporting and there is no terminal 
to allow the i nf ormat i on transfer . 
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D. In the power fail routine if the power up sequence was 
started before the power down sequence had a chance to 

complete itself. 

E. In the Memory mapping routine or any of the address 
control routines, failures to find a meaningful map. 



4.0 PERFORMANCE AND PROGRESS REPORTS 

Not app 1 ^ cabl e 



DEVICE INFORMATION TABLES 

The following is a picture view of a parity control status 
registers, which will show bit assignments and definitions, 
to provide a handy reference: 



5.1 



CORE PARITY REGISTER 



I I I I I I 

! PE! ! ! 1 

I I I I I I 



I I I T I I I I I I I 
ADDRESS ! ! !WP! lAEl 

I I I I I I I I I I I 



15 14 13 12 11 10 09 08 07 06 05 04 03 02 0. 00 

Bit assignments are def i ned as follows: 



BIT15 
BITS 11-5 



PARITY ERROR 
ERROR /vDRESS 



WRITE WRONG PARITY 



ACTION ENABLE 



HIGH ORDER ADDRESS 
BITS OF ADDRESS OF 
PARITY ERROR (BITS 
17-11 OF ADDRESS) 

NORLAL PARITY (ODD) 
WHEN CLEAR; OTHER 
PARITY (EVEN) WHEN SET 

NO ACTION WHEN CLEAR 
TRAP TO VECTOR 114 
WHEN SET 



5.2 



MOS PARITY REGISTER 



I I I I 

! PE ! ! I 
I I I I 



I I 



I I I I I 
! !WPi !AE! 
I I I I I 



15 14 13 12 1 1 10 09 08 07 06 05 04 03 02 01 00 
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BIT ASSIGNfViENTS ARE DEFINED AS FOLLOl?^S: 



BIT15 
BIT02 



BITOO 



PARITY ERROR 
WRITE ^RONG PARITY 



ACTION ENABLE 



NORMAL PARITY (ODD) 
WHEN * CLEAR; OTHER 
PARITY (EVEN) WHEN SET 

NO ACTION WHEN CLEAR 
TRAP TO VECTOR 114 
WHEN SET 



5.3 



liS11~K CSR 



I I I I I 
IDE! !SI ! ! 
I I I I I 



I I I I 

ADDRESS 
I I I I 



I I I I I I 
!SE! IP!DC!EC!EEl 
I I I 1 I I 



15 14 13 12 1 1 10 09 08 07 06 05 04 03 02 01 00 
BIT ASSIGNMENTS ARE DEFINED AS FOLLOWS: 
BIT15 DOUBLE ERROR 

BIT 13 SET INHIBIT IVijDE 



BITS 11-5 ERROR ADDRESS 



BIT04 



BIT03 



SINGLE ERROR 
INHIBIT MODE POINTER 



WHEN THIS BIT IS SET 

TO A 1 , IT ENABLES THE 

INH MODE POINTER TO 

INHIBIT EITHER THE 

FIRST OR SECOND 16K 
FRPV EVER GOING INTO 

TH@ DIAG. CHECK OR 
ECC DISABLE MODE. 

WHEK BIT02 CLEARED 
CONTAINS HIGH ORDER 
BITS OF ADDRESS OF 
PARITY ERROR(BITS 
17-11); WHEN BIT02 
SET CONTAINS CHECK 
BITS FOR ECC. 



SET WHENEVE-R 
ERROR OCCURS 



SINGLE 



THE INHIBIT MODE 
PC-INTER WORKS IN 
CONJUNCTION WITH THE 
SET INHIBIT MODE BIT. 
WHEN BIT 13 IS SET TO 
A 1 , A 16K PORTION OF 
MEMORY IS INHIBITTED 
FROM OPERATING IN iHE 
ECC DISABLE MODE OR 
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DIAGNOSTIC CHECK MODE. 
THE INHIBIT MODE 
POINTER INDICATES 
WHICH 16K IS BEING 
INHIBITED, , tBIT 3 =1 

THE SECOND 1 6K OF 
MEMORY IS INHIBITTED. 
WHEN BIT 13 IS SET TO 
A 0, BIT 3 BECOMES 
INOPERATIVE. 

BIT02 DIAGNOSTIC CHECK A WH|N SET ENABLES 

READ-WRITE OF CHECK 
BIT'^CSEE BITS 11-5) 

BITOi DISABLE ERROR CORRECTION WHEN SET NO ERROR 

CC'-JRECTION TAKES PLACE 

BITOO DOUBLE ERROR ENABLE WHEN SET ENABLES TRAP 

TO VECTOR 114 ON 
DOUBLE ERROR. 



6.0 SUB-TEST SUMMARIES 



6.1 Section i: Address Tests, 

These tests verify the uniqueness of every memory address- 

TEST 1 Writes and reads the value of each memory Word 
Address into that Memory location. After all memory has b^en 
written, all locations are checked again. 

TEST 2 Writes the byte value of each address into that byte 
location and checks it. 

TEST 3 Writes the complement of each word address into that 
location and checks it. 

TEST 4 Writes the 4K bank number into each byte of that bank 
and checks i t . 

TEST 5 Writes the complement of the bank number into each 
byte of that bank and checks it. 



6.2 Section 2: Worst Case Noise Tests. 

These are intended to apply maximum stress to the various 
types of PDP-^II core memories. 

TEST 6 and TEST 7 Ar^ supplied to allow the operator to 

select a single word data pattern (SAst204) and SCOPE on 



C2QMCF0 0-1 24K MEM EXER 16K Page 12 

either the writing (DATO) in TEST 6 or the reading (DATI) in 
TEST 7 of that data. 

TEST 10 Wrtes and then checks a series of single word 
patterns which are designed to stress parity memory. 

TEST 11 Writes all memory with I's in every bit and then 
"Ripples" a "0" through it. 

TEST 12 Writes all memory \sjith O's in every bit and then 
"Ripples" a "1" through it. 

TEST 13,14,15, AND 16 Write a pattern which complements when 

address BIT 3 XOR BIT 9 complements. 

TEST 17 Writes wrong parity in each byte of memory and 
checks that the par i ty detect ion logic works. Thi s test is 

skipped for non-parity memory. 

TEST 20 yrite "random" program code through memory and 

checks i t . 

6.3 Section 3: Instruction Execution Tests. 

This group of tests place instructions in the memory under 
test , then executes the i nstruct i ons , and finally, checks 
that they executed correctly. 

TEST 21 Executes an instruction which does t. DATI and a DATO 
on the memory under test. 

TEST 22 Executes an instruction which does a DATI and a 
DATOB on the low by', i of memory under test. 

TEST 23 Executes an i nstruct ion which does a DATI and a 

DATOB on the high byte. 

TEST 24 Executes an instruction which doet, a DATIP and a 
DATO. 

TEST 25 Executes an instruction which does a DATIP and a 
DATOB on the low byte. 

. TEST 26 EXECUTES AN INSTRUCTION WHICH DOES A DATIP and a 

DATOB on the high byte. 

6.4 Section 4: Mos Tests 

TEST 27 -Writes a pattern of 000377 through memory, then 
compliments it addre'^si ng downward, cor.o i i ments the new 
pat tern addressi ng upward, compl iments the thi rd pattern 
addressing upward and finally compl iments this new AS 

patterns addressing downward. 
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TEST 30'"31 Write a checkerboard through memory then stalls 
for 2 seconds and then verifies no data has changed. 



6«5 Special Toggle In Tests 



6»5.1 Togg 1 1 n~program #1 

The following is a toggle in rremory address t^st. This test 
is useful when an address selection failure is suspected 
involving the first 8K of memory. This program writes the 
value of each address into Itself starting la/ith the lovs/er 
limit and continuing to the upper limit. After all addresses 
have been written each address is checked for the correct 
contents starting with the upper limit and continuing to the 
1 Ower limit. 



LOCATION 


CONTENTS 




MNEMONIC COMMENT 


10 


012700 




fVlOV #50, RO 


GET FIRST ADDRESS 


* 1 2 


000050 






TO TEST 

(EXAMPLE START ADDRESS) 


1 4 


01 0001 




IVlOV R0,R1 


SAVE IN R1 


1 6 


020037 


1$: 


CMP R0,@#SWR 


CHECK UPPER LIMIT 


20 


1 77570 






(IN SWITCH REGISTER) 


22 


001 403 




BEO 2$ 


BRANCH IF AT UPPER LIMIT 


24 


01C010 




MOV RO,(RO) 


LOAD VALUE INTO ADDRESS 


26 


005720 




TST (R0)+ 


STEP TO NEXT ADDRESS 


30 


000772 




BR 1$ 


LOOP UNTIL DONE 


32 


01 0004 


2$: 


MOV R0.R4 


SAVE UPPER LIMIT 


34 


02C001 


3$: 


CMP no,Ri 


CHECK IF AT LOWER LIMIT 


* 36 


001 767 




3EQ 1$ 


BRANf'-: IF DONE 


40 


024000 




CMP ~(R0) ,R0 


CHECK DATA WRITTEN 


42 


001 774 




BEQ 3$ 


BRANCH IF OK 


44 


000000 




HALT 


ERROR 


46 


000772 




BR 3$ 


LOOP BACK 



After toggling the program LA = 10**set upp'ir limit**, start 

NOTES: The upper limit address obtained from the switch 
register may be changed during program operat i on . 
However occasionally the program may ha 1 1 because of 
'SWITCH BOUNCE'. ( The best procedure when changi ng 
limits is to stop the program make the change and 
continue.) The lower limit address (12) may be patched 
to any desired address. 

6.S«2 Toggl e~i n-Program #2 

The following is a 1 so a toggle in program to be used with 
toggle-! -program #1 for more compKte address testing. This 
program writes the comp 1 emen t value of each address into 
itself starting with the upper limit and continuing to the 
lower limit. After all addresses have been written each 
address is checked for the correct contents starting with the 
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lower limit address and continuing to the upper limit. 
Toggle in th© following patches to the program above. 

These are the patches to togg 1 e~1 n-program #i: 

LOCATION CONTENTS W^MOMIC COMMENT 

12 100 ;CHANGE LO^ER LIMIT 

36 001404 BEO 4$ ; BRANCH TO PROGRAM #2 



These are the additions to toggle-^in-program #1 » 



LOCATION 


CONTENTS 




MNEMONIC COMME^''^ 


50 


"010402 




MOV R4,R2 


GET UPPER LIMIT 


52 


005142 




COf^ -(R2) 


COMPLEIVIENT ADDRESS 


54 


020201 




CMP R2,R1 


CHECK IF AT LOWER LIMIT 


56 


001375 




BNE 5$ 


LOOP Ui^TIL DONE 


60 


020204 


6$: 


CMP R2,R4 


CHECK IF AT UPPER Llf^ilT 


62 


001755 




BEO 1$ 


GO TO PROGRAM 1 IF DONE 


64 


010203 




MOV R2,R3 


GET VALUE OF ADDRESS 


66 


005103 




COM R3 


COMPLEMENT VALUE 


70 


020322 




CMP R3,C^2)^ 


CHECK ADDRESS 


72 


001772 




BEQ 6$ 


BRANCH IF OK 


74 


000000 




HALT 


ERROR 


76 


00i;77Q 




BR 6$ 


GO CHECK NEXT ADDRESS 



7,0 PROGRAM FUNCTIONAL FLO^ CHARTS 
Attached 



8.0 



PROGRAM ISTING 
Attached 
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SA«210 



s3Q0 



SA=214 



*********** 
**RESTAR 

* * * * jjs * * * * * Sji 

RESTAR I 

************** 

* SET RESTART 

* -^LAG (R5*0) * 

* * 

. lS!*^********!|J* 



*********** 

**RESTQR 

*********** 

I 

***************** 

* SET RESTORE * 

* FLAG (R5=PC) ♦ 

* ■ * 

*****S^!tt!|!******><iS** 

REST1 V 

*******!|S********* 



SETUP STACK 



***************** 
I 
V 

/ HAS MEMORY BEEN \NQ ************ 
/ MAPPED? \ > *STARTA * 

/ \ ************ 

I YES 
REST2 V 

/MEMORY MANAGEMENT\NO 
/ AVAILABLE? \ 

I _ \ I 

I YES *********************** 
V *RESET SP AND JUMP TO ♦ 

************>*,********** * RELOCATED PROGRAM * 

« SET UP MEMORY MGMT . * * * 

* MAP PROGRAM INTO * *********************** 

* VIRTUAL BANKS & 1 * I 
*********************** I 

. -.^ 

I 

I 
¥ 
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/ PROGRAM MAP \YES 

/POINTING TO BANKS 0\ 

/ & 1? \ 

I NO 

V REL0(59) 

** RELOCATE PROGRAM TO ♦* 
** BANKS & 1 ** 

«* ** 

';v4iitt4i«4i4i4i4(4i4i4i4i«iti«4<i|i>4ii|i 

I< 

V 



/ 



RESTART FLAC- 
(R5»0)? 



\YES 
\ 

\ 



4t i» Id 4( « 4> 41 4> « * * 4i 

>*START1 (16)'^■ 
l«l«lil4l««>l>«»«l)«!)t> 



I NO 

V RESLDR(59) 
** RESTORE LOADERS ** 

I 

V 

]«( 4> * * 4> 4> « )*< 4: * 4i 

«572 **HALT ** 
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**$PWRDN ** 
* ♦ ♦ * 

I 

V 

* SILLUP -> VECTOR * 

* SAVE REGISTERS * 

* SPWRDN -> VECTOR * 

I 

V 

**HALT *♦ 



**$PWRUP ** 

4c)tt « itoji 4t ;4c « « « III 

I 

V 

* WAIT LOOP FOR TTY ♦ 

* RESTORE REGISTERS * 

* SPWRDN -> VECTOR * 

I 

V $PRINT(63) 

/ TYPE POWER FAIL / 
/ MESSAGE / 

/ / 

I 
V 

4c 4e )4< 4( 

♦♦RETURN ♦♦ 

4(itc4t4<4i4'4> ♦♦♦♦ 



i(i it( 4i 4> 4> >«> >«t 1(1 « 4< 

♦♦SILLUP ♦♦ 

* « 4i « # i^c )»t 4t * 4< >ti 

I 

V 

4i 4. 4c 4c * ♦ « 4t >t< 4i 

♦♦HALT ♦♦ 
^■(■♦♦♦♦♦-^♦^ 
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.?*1100 



4ii|i4ii»4ii|i«ic*i(t4i4i4i4t)ic4ci(ci|i)(i«iti4i4i 

* STANDARD 'SYSMAC * 

* COMMON TAGS * 



* APT MAILBOX AND * 

* ETABLE ♦ 

* * 



4> COMMON TAGS FOR THIS * 

* PROGRAM * 

* * 



* RELATIVE ADDRESSING * 

* TABLE. ERROR DATA * 

* POINTER * 



* MEMORY PARITY WORSE ♦ 

* CASE PATTERNS TABLE * 

* * 



* MEMORY PARITY * 
♦REGISTER ADDRESS AND * 

* MAP TABLE * 



*riROR MESSAGE POINTER* 

* TABLE * 
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SA=204 * SELECT 

I 

* SET FLAG FOR ♦ 

* SELECTING * 
PARAMETERS * 

I 



>^ « 9«C >it XC « % >ti « lj( 

SA-200 **START ** 

Hi >tt « Hi « « 4: « « ^ ^ 
I 

*CLEAR FLAG FOR * 

* SELECTING * 

* PARAMETERS * 

I 



I 

STARTA V 

* CLEAR COMMON TAGS * 

* INIT SP INIT PF * 
^ VECTOR * 

I 

V 

jK « « « il^ « « sfc 4: !«t 4: >N sii « « « « ^ « lie 

* SET UP SOFTWARE * 
♦SWITCH REGISTER IF NO* 

* HARDWARE SWR * 

I 

V 

/TYPE PROGRAM TITLE/ 
/ (ONCE ONLY) / 
/ / 

I 

V 

/ HAS PROGRAM \YES ************ 

/ RELOCATED? \ >*RESTAR { 02 ) « 

/ \ ************ 

I NO 
V 

******!{<********>{«********* 
** ** 

** :-AVE LOADERS ** 
** ** 
******>p^***************** 

I 

I 

I 

V 



C20MCF0 
SETUP 



0-1 24K MEM EXER 16K 



DECFLO VER 00.07 20-FEB-78 07: SB PAGE 07 



/ CLEAR 'MMAVA' . \YES 

/ MEMORY MANAGEMENT \ 

/ EXITS AND DESIRED? \ I 

y 

I NO *«4t4i4>i|t*4<4i4i*>l>«««*4i4i4t4>4i** 

I *SET UP MEM MGMT. SET * 

I * 'MMAVA' FLAG TYPE » 

I * 'KT11 AVAILABLE* * 

I I 

I 
V 

« « 

♦TURN OFF CACHE * 



4i«4(**4t*4>4i*i|t**4i«i|i* 

I 
I 

V 
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MAPMEM 

* RESET SP SET UP * 
« POINTERS TO MEMORY * 

* MAP. * 

I 



/ / 

/TYPE "MEMORY MAP: "/ 
/ / 

I 

>I 

V 

*REAJ AND WRITE MEMORY* 

* LOCATION (AUTO-INC *- 

* POINTER) * 

I 

V 



NO /END OF A 4K RANK \ 

/OF MEMORY REACHED? \ 

/ \ 



YES 



TIMEOUT TRAP 

-»»»>»»> 

I 
V 

♦ADJUST SP UPDATE ADP * 

* POINTER TO START OF * 

* NEXT 4K. * 



* * * * I******************* 

* SET FLAG IN MAP TO * 

* INDICATE FULL 4K . * 

* SAVE ADR POINTERS * 

I 

I< ■ 

V 

NO / UPDATE POINTERS \ 

/ TO NEXT 4K BANK. \ 

/ END (12BK) REACHED? \ 



I YES 
V 



/DOES FIRST 16K OF\NO 
/ MEMORY EXIST? \— 
/ \ 

I YES 
V 

*GMPR(12) ♦ 



/TYPE INSUFFICIENT / 
->/ MEMORY MESSAGE / 
/ / 

I 

**HALT 

:»c :tc :4c >(( ^ 4t ^ 41 Kc 
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SAs220 



*** 



;^ !$s i(t « Id « itc « « 4> « 

**TIMOUT 

^ Xt lit 4< Id « 4c « « « 41 
I 

V 

/ MEMORY \N0 

/ MANAGEMENT? \ 

/ \ 

I YES 

V MMINIT(55) 

** SET UP MEMORY ♦* 
♦♦MANAGEMENT REGISTERS ** 
«« ♦♦ 



I<- 

V 



$PRINT(63) 



/TYPE "BYTE MEMORY / 
/ MAP" / 



/ 



/ 



I 

V 

* INIT TYPEOUT FLAG « 
*INIT ADDRESS POINTER * 

* SET TIMEOUT VECTOR * 

,^W'*m****iif**0m**** ****** 

V 

iit* ********************* 

*D0 A DATI; THEN DATI.* TIMEOUT TRAP 

* DATO ; THEN DATI, * — »»»»»»- 

* DATIP, DATOB * 

ii^***^Hi(n^*1^l^^^,^v*4f ******** 
I 

V 



*m********************* 
* * 

->* ADJUST SP * 



I 



/TYPE "FROM" FLAG \N0 
/ SET? (R0=-1) \— 
/ \ 



YES 



NO / TYPE "TO" FLAG \ 

>*B*< / SET? (RO-0?) \ 

*** / \ 

I YES 

I 

I 

I 

V 
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* ** 

*B* 



*** 
*A*<- 



*** 
*A*<- 



NO 



* UPDATE MEM MU^T « 

* REGISTERS + ADDRESS *<- 

* POINTER * 
*********************** 

I 

V 
*** 
*A* 
*** 



$PRINT(63) 

********* Ic ********** 

/ / 

/ TYPE "FROM" / 

/ / 
*». .**************** 

I 

V $TYPAD(63) 
******************** 

/ / 
/ TYPE ADDRESS / 

/ /' 

I< 

V 

***************** 

* COMPLEMENT * 

* TYPEOUT FLAG * 

* (RO) ♦ 
***************** 

>I 

V 

***************** 
*UPDATE ADDRESS * 

* POINTER * 



V NOT=0 



$PRINT(63) 
******************** 

/ / 
/ TYPE "TO" / 

/ / 
***n *************** 

I 

V $TYPAD(63) 

/ / 
/ TYPE ADDRESS-1 / 

/ / 
******************* 

1 



NO / \ 

/ 4K BANK BOUNDRY? \ 

/ \ 

I YES 
V 



/MEMORY MANAGEMENT\ 
— / AVAILABLE? \ 
/ \ 

I YES 
V 



NO / \ 

/ END OF MEMORY? \ 

/ \ 



I YE^j 
I< 

V 
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/ TYPE "TO" FLAG \N0 
/ ■ SET? R0=0 \-" 
/ \ 

I YES 
V 



/ 



/ 



/ TYPE "TO" / 
/ / 

I 

V 

/ / 

/ TYPE ADDRESS-1 / 
/ / 

I< • 

V 

**HALT ** 

41*41 41 »> f « 4< >t< * 4> 
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*GMPR(08) * 

1^ il! « ;$i 4! >^ :{t it: :^ >|! i4s 

GMPR I 

*********************** 

*SET UP TABLE POINTERS* 
*SET UP TIMEOUT VECTOR* 



NO 



*********************** 

->I 

GMPRA V 
*********************** 

* ^lEAR FLAG. TEST * 

* REGISTER ADR FOR *- 

* TIMEOUT * 

I 
V 

**. ******************** 
*SAVE REGISTER ADR IN * 

* SECOND TABLE (MPRX) * 

* * 
*********************** 

I< 

GMPRC V 

/CLEAR MAP. END 0F\ 
-/ TABLE REACHED? \ 
/ \ 

I YES 
V 

*********************** 

* TERMINATE SECOND * 

* TABLE (MPRX) RESET * 

* TIMEOUT VECTOR * 

*********************** 

I 

V 

/ ANY PARITY \N0 
/ REGISTERS FOUND? \— 
/ \ 



TIMEOUT TRAP 

-»»»»»» 

I 

GMPRB V 

* ADJUST SP. SET FLAG * 
*T0 INDICATE REGISTER * 

* NOT PRESENT * 

*******************^3|!*i^ 
I 
I 



I YES 

I 



I 
V 

******************** 
/ TYPE "NO MEMORY / 
/ PARITY REGISTERS / 
/ FOUND". / 

******************* 

I 
V 

************ 

*MANUAL( 15)* 

************ 



4 
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************ f ********** 

* INIT ALL REGISTERS * 

* SET UP POINTERS * 

* * 
*>■ •*****♦♦***♦*****♦♦♦* 

I 

MAPRB V 
*********************** 

*WRITE WRONG PARITY IN* 

* EACH BANK OF MEMORY * 




* FIND WHICH REGISTER 
♦CONTROLS WHICH BANK. 



I 

TMAP V 
*********************** 

*TYPE PARITY REGISTER * 

* ADDRESS * 

* * 

*********************** 
I 

V TYPMAP(62) 

** TYPE MAP OF MEMORY ** 
** CONTROLLED BY EACH ** 
** REGISTER ** 
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CTRLS 



>«CLEAR PARITY REGISTER* 



/ \N0 

/ ALL BITS CLEAR \— 

/ \ 

I YES 

V< 

* ■ SET AND CLEAR * 
*NON-RESERVED BITS OF * 

* REGISTERS * 

I 

V 



/ \N0 
/ SET AND CLEAk OK? \— 
/ \ 



YES 



I YES 
V< 



/ \ 
•/ MORE REGISTERS? \ 
/ \ 

I 

RESCHK V 

* SET BITS IN ALL * 
^REGISTERS. DO "RESET"* 



SERRORCea) 

** ERROR: REGISTER ** 
->** DOESN'T CLEAR ** 

** 

I 



$ERR0R(63) 

***** 

** ERROR: BIT STUCK IN ** 
->** REGISTER ** 

** ** 
************************* 
I 



I 

V $ERR0R(63) 

— «- . ************************* 

/ ALL REGISTERS \N0 ** ERROR: RESET FAILED ** 

CLEARED? \ >** TO CLEAR REGISTER ** 

/ \ ** ** 
*******************i^***** 

I YES I 
I< 

I 

V 



i 
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■^.PRJNTCea) 

/type: -address IN / 

->/ UNMAPPED MEMORY f / — 

/ / 

4ii^4[4r«i^4i«4(*4t4r«i(i«r)tt«||i<:' 



**MANUAL *♦ 

iti « * « iti i|c » 41 idili 

MANUAL I 

/SELECT PARAMETER \N0 
/ FLAG SET-^ \— 

/ \ 



, , >I YES 

MANUL1 V $RDpCT(63) 

/ / 

/GET FIRST ADDRESS / 
/ / 

I 

V 



/first ADDRESS IN \ 



NO 

-*?•'—-/ MAPPED MEMORY? 
/ 



\ 



,^-^1 YES 

V |RD0CT(63) 

/ / 

/ GET LAST ADDRESS / 
/ / 

I 
V 



NO 



/ LAST ADDRESS \ 
— / HIGHER THAN FIRSi \ 
/ ADDRESS? \ 



I YES 
V 



NO 



/ LAST ADDRESS IN \ 
■^-/ MAPPED MEMORY? \ 
/ \ 

I YES 
I 

/ GET SELECTABLE / 
/ CONSTANT / 

/ / 

I< ^ ^ 

I 
I 
I 
I 

V 
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MANUia 

* MAKE NECESSARY ♦ 
^ADJUSTMENTS TO FIRST * 

* AND lAST ADDRESSES * 

I 
I 

V 

**START1 ** 

I 
I 
I 

START1 V 

♦INITIALIZE EVERYTING * 

* FOR A NEW PASS * 



I 

I 
I 
I 
I 

V 
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TST1 INITMM(55) 

INITIALIZE ADDRESS 
*♦ ■ POINTERS 
♦ ♦ ** 

« >I 

V 

m***********m********** 
* WRITE PHYSICAL * 
♦ADDRESS VALUE IN EACH* 
• * WORD LOCATION • 
m***********m********** 
I 

V MMUP(56) 
mm*********************** 

MORE MEMORY JPDATE ADDRESS *v 
mm POINTERS *« 

** • ** 

I DONE * 

V INITDN(55) 
mm*********************** 



** INITIALIZE ADDRESS 
♦* POINTERS 



** 
** 



mm ** 
mm*********************** 

>I 

V 



DOES EACH 
LOCATION HAVE 
ADDRESS VALUE? 



\N0 

\ 



I YES 

I< 

V MMD0WN(56) 



$ERR0R(63) 
m*********mm* ************ 
♦♦ERROR: ADDRESS VALUE ♦♦ 
-♦♦ NOT IN LOCATION ♦♦ 
** ** 
mm*********i*^**mn>^^^4n»m^^ 
I 

—I 



MORE MEMORY 



m***** ********** ********* 
** 
** 
** 



UPDATE ADDRESS 
POINTERS 



♦ ♦ 

m*********** ************* 

IDONE 

I 

I 

I 
V 
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TST2 INITMM(55) 

** INITIALIZE ADDRESS ♦* 
** POINTERS ** 

♦ * *♦ 

>I 

V 

* JRITE PHYSICAL * 
♦ADDRESS VALUE IN EACH* 

* BYTE LOCATION * 

I 

V MMUP(56) 

MORE MEMORY ** UPDATE ADDRESS ** 

POINTERS 

** ♦ * 

IDONE 

V INITDN(55) 

*♦ INITIALIZE ADDRESS *♦ 
** POINTERS ♦* 

** ♦* 

V . $ERR0R(63) 

« j(t**j|i******#***4c****# 

/ DOES EACH BYTE \N0 ♦♦ERROR: ADDRESS VALUE *♦ 

/ LOCATION HAVE \ >^*NOT IN BYTE LOCATION ** 

/ ADDRESS VALUE? \ ♦♦ *♦ 

— — — 4t*s«(ii::«E4<H<>^#i4'4titi«*4'^^ii<>i<«««^«« 

I YES I 

I< : 1 

V MMD0WN(56) 

MORE MEMORY ♦♦ UPDATE ADDRESS ♦♦ 

POINTERS ♦♦ 

** ** 

IDONE 

I 

I 

I 

V 



i 
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TST3 INIT0N(55) 

♦* INITIALIZE ADDRESS 

** POINTERS ** 

• ♦ ** 

>I 

V 

* V^IRITE ONE'S * 

* COMPLEMENT OF ADR * 

* INTO WORD LOCATIO.; * 

I 

V MMD0WN(56) 

MORE MEMORY UPDATE ADDRESS ** 
POINTERS ** 

♦ ♦ ** 

IDONE 

V INITMM(55) 

** INITIALIZE ADDRESS 

*♦ POINTERS *♦ 

*« ** 

«««« f * 4i « 4! « i(i lie « )»iiK « 
>I 

V $ERR0R(63) 

— — . t»4c4i4t4>«4c«>t>*««4<<iti|>!ti««4<4t)(i«i|t#«t 

/ DOES EACH WORD \N0 **ERROR: COMPLEMENT OF ** 

/HAVE COMPLEMENT OF \ ^ >**ADR. NOT IN WORD LOC.** 

/ ADR. VALUE? \ ** ** 

««««««« ]tiij!«t»««4:>ti«««i«^$«$#i$ 

I YES I 
K-,^ : 

V MMUP(5C) 

MORE MEMORY «* UPDATE ADDRESS ** 

.„ p POINTERS ** 

** 

IDONE 
I 
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TST4 INITMM(55) 

«« INITIALIZE ADDRESS ** 
♦* ■ POINTERS ** 

** «* 

« Dt 4( i«i He )«c ^*j!!m«)Si***«*«****** 

>I 

V 

* WRITE BANK # VALUE * 

* INTO EACH BYTE * 

* LOCATION * 

I 

V MMUP(56) 

MORE MEMORY ** JPDATE ADDRESS *. 
POINTERS ** 

** • ** 

IDONE • 

V INITMM(55) 

** INITIALIZE ADDRESS *« 
** POINTERS ** 

** «* 

V . $ERR0R(63) 

— . **4!**!|e)|c#**i|i#*«ii(**>H******* 

/ DOES EACH BYTE \N0 ** ERROR: BANK # VALUE ** 

/ HAVE ITS BANK A* \ >** NOT IN LOCATION ** 

/ VALUE? \ ** ** 

— . . . *ljCj(t«**«****4l3itljt««lJSlj.****j|t** 

I YES I 
I< . ^ 1 

V MMUP(56) 

* 3tc « lit « !(< % 4c :^ >ic 9(t 4: He « « 4t « « « 4c )4t « « 

MORE MEMORY *« UPDATE ADDRESS ** 
POINTERS ** 

** ** 

4i]$t4:4c)|i«:4i4!^4>4c4i4i«>K««4t«)i'4<4>4t*« 

IDONE 

I 
I 
I 

V 
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mn£ MgRSORY 



TST5 



INITDN(55) 



INITIALIZE ADDRESS ** 
** POINTERS ** 

♦ * ** 



->I 
V 



♦wr: ;e i'S complement * 

« OF bank number into * 

'* BYTE location * 



MMD0WN(56) 



UPDATE ADDRESS 
POINTERS 



4>* 



IDONE 

V INITDN(55) 

** INITIALIZE ADDRESS 
POINTERS 



MORE MEMORY 



V 



/ DOES EACH BYTE \N0 
/HAVE COMPLEMENT OF \— 
/ BANK VALUE? \ 



I YES 

I< , 

V MMD0WN(56) 



UPDATE ADDRESS 
POINTERS 



$ERR0R(63) 



♦♦ERROR: COMPLEMENT OF ♦♦ 
->♦♦ BANK NOT IN BYTE ♦♦ 

LOC. ♦♦ 



IDONE 
I 

I 
I 

¥ 
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TEST 6 



I 
I 

l< 

TST6 V INIT!V!M(55) 

»* INITIALIZE ADDRESS ♦* 
** POINTERS ** 

** ** 

>I 

V 

♦WRITE A CONSTANT INTO* 
*ALL LOCATIONS. (USER * 
* SELECTABLE) * 



MMUP(56) 



MORE MEMORY ** 



UPDATE ADDRESS 
POINTER 



IDONE 

I 

I 

I 

I 

I 

V 



i 
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TST7 INITMM(55) 

*♦ INITIALIZE ADDRESS ♦* 
*♦ • POINTERS ** 
*♦ *♦ 

>J 

V 



MORE MEMORY ** 



/ CONSTANT FROM \N0 

/ TST6 IH ALL \ 

/ . LOCATIONS? \ 

I YES 

X<— , 

V MMUP{5^) 

** UPDATE ADDRESS 
POINTERS 

** 

IDONE 
V 



/LOOP ON TEST 6 IN\YES 
/ SWR? \-— 

/ _ \ 

I NO 

I 

I 

I 

V 



$ERR0R(63) 

«>t<ERROR: CONSTANT FROM 
->**TST6 NOT IN LOCATION 

1^ « 4> i»««>i»$$ 9 «««« m i» $ ^ 

I 8 
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TST10 

* SET UP DATA TABLE * 

* POINTER * 



->I 

V 



CKPMER(61 ) 

4c « « # « « 4i If 

**CH":OK FOR ANY MEMORY ** 

** PARITY ERRORS 

* * ** 



*GET DATA PATTERN FROM* 

* TABLE * 



END OF TABLE 



MORE MEMORY 



I 

V INITMM(55) 

** INITIALIZE ADDRESS ** 
** POINTERS ** 

** ** 

>I 

V 

*PUT DATA INTO MEMORY * 

* LOCATION * 

* ■ * 

Jti t«< ^ s»! ;»! ifc ^ i$c « « )»: « « ;|t :«( 2^ 3tc :^ sjf 3^ 3|> 
I 

V $ERR0R(63) 

— Sji***^!*********!!'********** 

/DATA JUST WRITTEN\NO 
/ OK? \ >**ERROR: DATA CHANGED. 

/ \ ** «^ 

. — — #jj.«*>jt****#^**JSi****«***««* 

I YES I 
I< : 1 

V MMUP(56) 

** L.DATE ADDRESS ** 
— POINTERS ♦* 

** *« 

DONE I 



4 
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I 

TST11 V SETC0N(57) 

**PUT ALL ONE'S IN ALL ** 
** MEMORY ** 



I 

V INITMM(55) 

** INITIALIZE ADDRESS *♦ 
** POINTERS ** 



.-.>! 

V R0TATE(57) 

*******>ti****>|c:tc4t***>4(****** 

** CLEAR C-BIT AND ** 
**R0TATE IT THROUGH TWO** 
** BYTES ** 

*************^****«****** 

I • 
V 

/ C-BIT CLEAR AND \N0 

/ -1 IN MEMORY \ 

/ LOCATION? \ 

I YES 

I< _ 

V MMUP(56) 

*****************)«i%*****]K 

MORE MEMORY ** UPDATE ADDRESS ** 
** POINTERS ** 



$ERR0R(63) 

*i(r*4>********************* 

** ERROR: ROTATING ** 
->** FAILED. ♦* 

** ** 

«*******4(]|i4i*!);t*stt:^«iii^*i^#s^«i$t)$i 
I 



******¥********«**4c****** 

IDONE 
I 
I 
V 
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TST12 SETC0N(57) 

**PUT ALL ZEROS IN ALL ** 
■ MEMORY *♦ 

»* ** 

I 

V INITMM(55) 

** INITIALIZE ADDRESS ** 
»« POINTERS ** 

♦ * ** 

>I 

V R0TATE(57) 

«*SET C-BIT AND ROTATE *» 
♦♦IT THROUGH TWO BYTES ♦* 
*♦ • ♦* 

I 

V $ERR0R(63) 

/ C-BIT SET AND \N0 ♦♦ ERROR: ROTATING 1 ♦* 

/IN MEMORY LOCATION?\ >♦♦ FAILED «* 

/ \ ♦♦ ** 

I YES I 
I< 1 

V MMUP(56) 

MORE MEMORY ♦♦ UPDATE ADDRESS ♦♦ 

POINTERS *♦ 

** 

IDONE 
I 
I 
I 

V 
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TST13 INITMM(55) 

** INITIALIZE ADDRESS ** 
POINTERS 

** ** 

, >I 

V W3X9(57) 



** 

** 

** * 



•iRITE 256. WORD 

BLOCKS WITH 
,0,0,0,-1,-1 ,-1 ,-1 

I 



MORE MEMORY ** 



V MIViUP(56) 

UPDATE ADDRESS ** 
POINTERS ** 

IDONE 

V INITMM(55) 

** INITIALIZE ADDRESS ** 
** POINTERS ** 

** *» 



->I 

V 



/256. WORD BLOCKS \N0 
/ WRITTEN WITH \ — 
/ 0,0,0,0,-1 ,-1 ,-1 ,-1 \ 



I YES 

I< : 

V MMUP(56) 

MORE MEMORY ** UPDATE ADDRESS «* 

— POINTERS *♦ 

*♦ ♦* 

IDONE . 

I 



$ERR0R(63) 

*« error: 3 XOR 9 ** 
->** PATTERN FAILURE ♦* 

«« «* 

I 



t 
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INITMM(55) 

♦* INITIALIZE ADDRESS 

** POINTERS ** 

** 

** •!l}l**ij«*«**«*«)»i*«)«ij|(l}iJSr*5j!i|l 

>I 

V $ERR0R(63) 

/ \N0 ERROR: 3 XOR 9 

/ DATA OK? \ FAILURE ** 

/ \ ,^0 

I YES I 

I< ^ _i 

V 

* ♦ 

♦COMPLEMENT DATA* 



I 



DATA OK? 



\N0 
\— 

\ 



I YES 

I< 

V 



$ERR0R(63) 

♦♦ERROR: COMPLEMENTED 3** 

->** XOR 9 FAILURE ♦♦ 

** 

I 

I 



♦COMPLEMENT DATA* 

« * 

I 

V 

/ \N0 

/ DATA OK? \ 

/ _ \ 

I YES 

I< 

I MMUP(56) 

MORE MEMORY ♦♦ UPDATE ADDRESS ♦« 
POINTERS *♦ 

«>«< 

I 

IDONE 
V 



$ERR0R(€3) 

♦* ERROR: TWICE *« 
->**COMPLEMENTED 3 XOR 9 ** 
«♦ FAILURE *♦ 

I 
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TEST 14: 3 XOR 9 

TST14 INITMM(55) 

sj<*****4< ****************** 

** INITIALIZE ADDRESS «* 
■ POINTERS ** 

^^^^^^^ , „ — > I 

I V W3X9(57) 

I WRITE 256. WORD 

I BLOCKS WITH 

-1,-1,-1,-1,0,0,0,0 ** 

I ********** ^ * *ltl s{c ******* « 

I I 

I V MMUP(56) 

I ************#:«(*********** 

I MORE B^Ef^ORY JPDATE ADDRESS *■ 
— . ** POINTERS ** 

** ** 

****ii!*******)i!^****^****** 

IDONE ■ 

V INITMM(55) 

************** **^*^«***** 

INITIALIZE ADDRESS ** 
POINTERS ** 

** ** 
************************* 
^ ^ , ««„^-.„_>I 

I V $ERR0R(63) 

I /256. WORD BLOCKS \N0 ** ERROR: 3 XOR 9 ♦* 

I / WRITTEN WITH \- >** PATTERN FAILURE ** 

I / -1,-1,-1,-1,0,0,0,0 \ ** ** 

I .-™.^„„.. . **************ljt*****|j!**«* 

I - I YES 1 
I ~„ 1 

I V IVIMUP(56) 

I ******************s^****** 

I MORE MEMORY UPDATE ADDRESS 
^** POINTERS ** 

** ** 
*************,jt>i(********** 

IDONE 

I 

I 

I 

I 

I 

V 



t 
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$ERR0R(63) 

** error: 3 XOR 9 ** 
->** FAILURE 

I 



INITMM(55) 

4i«i|iiti4i4i4t)K4i4i«4i4>i|r*4t4iHiiti4c«4>itiiti)(i 

** INITIALIZE ADDRESS ** 
POINTERS ♦* 

>I 

V 

/ \N0 

/ DATA OK? \ 

/ ^ \ 

I YES 

V 

* * 

♦COMPLEMENT DATA* 

* * 

« « « « « « # Id 41 >jt « « « 41 41 « * 
I 

V $ERR0R(63) 

/ \N0 ♦♦ERROR: COMPLEMENTED 3«* 

/ DATA OK? \ >♦♦ XOR 9 FAILURE «* 

/ \ ** «* 

I YES I 
I< 1 

V 

♦COMPLEMENT DATA* 

* * 

I 

V $ERR0R(63) 

/ \N0 ♦♦ ERROR: TWICE *♦ 

/ DATA OK? \ >^*COMPLEMENTED 3 XOR 9 «♦ 

/ \ «* FAILURE ♦♦ 

I YES I 
I< . 1 

I MMUP(56) 

« ]|i 4t ««*♦♦♦♦« 4( ♦« 1$: « It! ♦♦♦♦♦ 4< 

MORE MEMORY ♦♦ UHjATE ADDRESS ♦♦ 
, — POINTERS ♦♦ 

** *» 

I 

IDONE 
V 
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MORE MEMORY 



MORE MEMORY 



TST15 INITMM(55) 

*♦ INITIALIZE ADDRESS 

*♦ POINTERS *♦ 

* « * * 

>I 

V W3X9(57) 

♦* WRITE 256. WORD ♦* 
** BLOCKS WITH 401 AND *♦ 
*♦ -1 *♦ 

I 

V MMUP(56) 

** UPDATE ADDRESS ** 
-** POINTERS ♦* 

*♦ ** 

IDONE 

V INITMM(55) 

«* INITIALIZE ADDRESS ** 
** POINTERS ** 

*♦ ** 

V $ERR0R(63) 


/256. WORD BLOCKS \N0 ** ERROR: 3 XOR 9 ** 

/ WRITTEN WITH 401 \— >** PATTERN FAILURE ** 

/ AND -1? \ ** ** 

I YES I 
I< 1 

V MMUP(5C) 

♦* UPDATE ADDRESS ** 
POINTERS ** 
** ♦* 

IDONE 
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INITMM(55) 

** INITIALIZE ADDRESS *« 
«* ■ POINTERS ** 



->I 

V 



DATA OK? 



\N0 
\— 

\ 



I YES 

■ i< 

V 



$ERR0R{63) 

** ERROR: 3 XOR 9 
->** FAILURE ♦* 

*« ♦* 

I 

1 



MORE MEMORY 



♦COMPLEMENT DATA* 



I 

V $ERR0R(63) 

/ \N0 **ERROR: COMPLEMENTED 3** 

/ DATA OK? \ ->** XOR 9 FAILURE ** 

/ \ ♦* ♦* 

——————— — — — «)|(4i4<]|t)|i)(i#4t4i4'4t4'4>4t*4>iti4i4i4i*4i*4i 

I YES I 

I< 1 

V 

* 4: 

^COMPLEMENT DATA* 

* # 

4< if «««*#!«« 4! *« 'i' * 

I 

V $ERR0R(63) 

/ \N0 ** ERROR: TWICE ♦* 

/ DATA OK? \ >**COMPLEMENTED 3 XOR 9 ** 

/ \ ** FAILURE ** 

I YES I 
I< 1 

I MMUP(56) 

** UPDATE ADDRESS ** 
— ** POINTERS ** 

«* -f ♦ 

«4(****«**«!«'*3»«4=i$<«*4!i««*>i<*** 
I 

IDONE 
V 
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TST16 INITMiVI(55) 

** INITIALIZE ADDRESS ** 
♦* POINTERS *♦ 

** ♦* 

>x 

V W3X9(57) 

** WRITE 256. WORD ** 
** BLOCKS WITH -1 AND ** 
*♦ 401 ** 



MORE MEMORY 



V MMUP(56) 

UPDATE ADDRESS ** 
POINTERS *♦ 

ic * « :«i 4c4i * * * % If 4c 

IDONE 

V INITMM(55) 



** INITIALIZE ADDRESS ** 
** POINTERS ** 

** ** 

>I 

V 



/256. WORD BLOCKS \N0 
/WRITTEN WITH -1 AND\— 
/ 401? \ 



$ERR0R(63) 

** ERROR: 3 XOR 9 ** 
->*♦ PATTERN FAILURE ** 
♦ * ** 



MORE MEMORY ♦* 
— — — ~- -# * 



I YES 

I< : .^^ 

V MMUP(56) 

UPDATE ADDRESS ** 
POINTERS ** 

** 



I 



IDONE 

I 

I 

I 

I 

I 

V 
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INITMM(55) 

** INITIALIZE ADDRESS ** 
** POINTERS *♦ 

♦ * ** 

♦ •.*****#**«**«««15!***4!*« 
>I 

V 



/ 



DATA OK? 



\N0 
\— 

\ 



I YES 

I< 

V 



$ERR0R(63) 

ERROR: 3 XOR 9 
->** FAILURE 

I 





♦COMPLEMENT DATA* 
♦ * 

I 

V $ERR0R(63) 

/ \N0 **ERROR: COMPLEMENTED 3** 

/ DATA OK? \ >*♦ XOR 9 FAILURE ** 

/ \ . «4! 

I YES I 
1< 1 

V 



*COMPLEMENT DATA* 

« * 

^ Ht 4! « « Id 4< ♦ « s|( « )«! >f « « « >$c 

I 

V 

/ \N0 

/ DATA OK? \ 

/ _ \ 

I YES 

I< 

I MMUP(56) 

MORE MEMORY ** UPDATE ADDRESS ** 
POINTERS ** 

** ** 

I 

IDONE 
V 



$ERR0R(63) 

** ERROR: TWICE ** 
->**COMPLEMENTED 3 XOR 9 ** 

** FAILURE ** 

I 

^ 1 
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TST17 

/ANY MEMORY PARITY\NO 
/ ' REGISTERS? \ — ■>*TST20 { 39 ) ^ 

I \ ******* 4!*!^** 

I YES 

V SETC0N(57) 

** FILL MEMORY WITH ** 
** ZEROS ** 

I 

V INITMM(55) 

il^i^*^it^1^^l^i>^^l^iif■i^itl1^i^i^i^1^%ill^f■i^i^^^■*^•»^■^(. 

** INITIALIZE ADDRESS 

** POINTERS ** 



**WWPBT **- 



WWPBT 



/ DOES THIS BANK \N0 
->/ HAVE PARITY? \— 
/ \ 



jjS !{t 5}S * )J( * * * * ^ Sj! 

>*WWPB5(37) * 



•^^■^n^1^•^f.1l^i(^■»^■^l^■l^^^ 

**WWPB1 



I YES 

V SETAE(60) 

************************** 
** SET MEMORY PARITY ** 
** ACTION ENABLE ALL 
** REGISTERS ** 

I 

V CKPMER(61 ) 

** CHECK FOR NON-TRAP ** 
**MEMOHY PARITY ERRORS ** 



^^1^^^■i^%i^>^•^^1^■t^i^1^■t^1^■t^^l^■if^^il^•^^^^il^■^^^il^ 
I 

WWPB1 V 

/ POINTING TO \YES * +4 TO ADDRESS 

— >/ PARITY VECTOR \ >* POINTER 

/ (114)? \ * 

I NO 
I 
I 
V 



— >*WWPB5(37) * 
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**WWP82 **- 



$ERR0R(63) 

/ \N0 ♦* ERROR: ADDRESSING ** 

/ DATA STILL ZF.RQ? \-™.™ >** ERROR ** 

/ \ 4t4i 

I YES I 
I< . . , 1 

WWPB2 V 

«4i#'<(.»4i«i«(4i4i4ii|t*«4<4t««i«<i|>>ti)t< 

* WRITE WRONG PARITY * 
->*INTO BYTE UNDER TEST ♦ 

« * 

X 

V $ERR0R(63) 

* READ WRONG PARITY *N0 TRAP **ERROR: READING WRONG ** 

* FORCING TRAP *— ^ >**PARITY FAILED TO TRAP** 

4t * *♦ ♦« 

#««>»i!ti««4>***4(«>»!4c««««4!«i»i« >|i«i$i«!4c««i(i«i»i««4<*«**i«i*4<#i««** 
I 

V MEMORY 

V PARITY 

V ERROR 

V TRAP 

PBTRP V $ERR0R(63) 

/ERROR FLAG SET IN\NO ** ERROR: NO REGISTER ** 

/ ANY REGISTER? — >*« SHOWN PARITY ERROR. ** 

/ \ ** mm 

mm*mm*'»i ****************** 

I YES 

V $ERR0R(63) 
mm*********************** 

/ THIS REGISTER \N0 ** ERROR: PARITY ** 

/ MAPPED FOR THIS \ >**REGISTER BAD MAPPED. ** 

/ ADDRESS? \ ** ** 

*mm'¥**^i'**************'¥*** 

I YES I 
I< ^ . . 

V $ERR0R(63) 

/ALL USED BITS OF \N0 ** ERROR: PARITY ** 

/ REGISTER CORRECT? \— >**REGISTER DATA WRONG. ** 

/ \ mm mm 

^^^^»^<m.-^m.mm^^^^^^^mfm.m.^^ m m ******<¥********* ^ ***** * 

I YES I 
I< , 

I 
I 
V 



mmmmmm****** 

->*WWPB4(37) 

mmmmmm**** 



mmmmmm****** 
->*WWPB4(37) * 

mm********** 
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SERR0R(63) 

/ ARE ALL OTHER \N0 **ERROR: MORE THAN ONE 

/ PARITY REG. ERROR \ >**REG INDICATED ERROR. 

/ FLAGS CLR? \ 

~ . 4!)|,^!^**!«!^!|!****,|!4j**j{lj|».fe:|t*«lt!* 

I YES 
WWPB3 V 
*********************** 

* SAVE DATA FROM BYTE * 

* UNDER TEST * 

* * 
*********************** 

I 

V $ERR0R(63) 

/ DID SAVING DATA \N0 **ERR0R: SECOND READ OF** 

/ RESET ERROR FLAG \— >** WRONG PARITY NOT 

/ \ ** DETECTED 

— . ************************* 

I YES I 


V $ERR0R(63) 

/ DID DATA REMAIN \N0 ^* ERROR: DATA CHANGED =f* 

/ UNCHANGED WHEN \ • >** DISPITE PARITY TRAP 

/ ERROR TRAPPED? \ ** *« 

. . . ***********************4!* 

I YES I 
V 

*********************** 
*RESTORE RIGHT PARITY * 

* IN BYTE UNDER TEST * 



*********** 
**WWPB4 **- 
*********** 



*********** 

**WWPB5 

*********** 



*********************** 
I 

WWPB4 V 

/DONE BOTH PARITY \N0 ************ 

»>/ BIT SET AND \ >*WWPB2(36) * 

/ CLEARED? \ ************ 

I YES 
WWP35 V 

• / DONE WITH THIS \N0 ************ 
»>/ BANK? \— >*WWPB1(35) * 

/ \ ************ 

I YES 
I 

V 
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4c 4( 4c 4r 41 4< 4> ♦ 4< 4c 4> MORb MEMORY 

*WWPBT(35) *< 

4c 4> 4c 4< 4i 4> 4< Hi 4> ♦ 4> 4> 



MMUP(56) 

I»4i4c4c4>4>4c4t4i«*4c4r4c4<4i4<4i4>4(4>«>(c4'4c 

♦* UPDATE ADDRESS ** 
■ POINTERS *♦ 

«4c ** 
4>4c«4i4i4i- Sc4c4(«*4t4t4c4>)t>4i4>'^>t(>*'*>«<>i> 

IDONE 

V MAMF(60) 

4c4<4>«*4>*4<***«<t<4c4>**4<4r>tc*i|(4>>l<« 

RESET ALL PARITY ** 
♦* REGISTERS ♦* 

4i4> *♦ 
4c4c4i4i4c4c4i4ii»4i4<4t*4i4t4c4<4i4i4>4><i>4>4<« 

I 

I 
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**TST20 ** 

« >^ tti « 

TST20 I INITMM(55) 

INITIALIZE ADDRESS ** 
** POINTERS 

— , ^ >I 

V 

* '"•IPY 2K BLOCK OF * 

* PROGRAM CODE INTO * 

* MEMORY UNDER TEST * 

I 

V $ERR0R(63) 

/DID "RANDOM" DATA\NO ♦* ERROR: PROGRAM CODE 

/ COPY OK? \ >♦* COPIED CHANGE. ** 

/ \ 

— - — in************************ 

I YES I 
I<— „ ^ . 

V MMUP(56) 

MORE MEMORY ** UPDATE ADDRESS ** 
POINTERS ** 

** 

IDONE 
I 
I 
I 
I 
V 



C20MCFO 0-1 24K MEM EXER 16K 
TEST 21 : EXICUTE DATI, DATD 



DECFLO VER 00.07 20-FEB-78 07s 58 PAGE 40 



TST21 INITMM(55) 

** INITIALIZE ADDRESS 
♦* POINTERS 



V 

* PUT INSTRUCTION 

* 'MOV R4,(R2)' * 
AND RTS INTO MEMOKf * 

4[4<«i(i4i«i(i*4'4i4>4>4t«!(>4'i»* • ♦ * 4i « 
I 

V 

**USR TO ADDRESS UNDER ♦* 

** TEST — »>- 



MORE MEMORY 



/ DID THE \N0 

/iKiTRUCTION EXICUTE\— — 
/ PROPERLY? \ 

I YES 

I< . 

V MMUP(56) 

** UPDATE ADDRFSS ** 
— POINTERS ** 

IDONE 

I 

I 

I 

V 



>«*MAUT 

I 

V 

* EXICUTE INSTRUCTION ♦ 

* IN MEMORY ADDRESS * 

* UNDER TEST (MAUT) « 

I 

V 

l$C « 4! « « # « « 4! « 

— «< — **RETURN ** 



$ERR0R(63) 

** ERROR: INSTRUCTION ** 
->**DIDN'T MODIFY ITSELF.** 

m* «« 

I 
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MORE MEMORY 



TST22 INITMM(55) 

** INITIALIZE ADDRESS ** 
** ' POINTERS ** 

* 4! ♦ ♦ 

^ , > I 

V 

* PUT INSTRUCTION * 

* 'MOVB R4, (R2) ' * 

* AND RTS INTO MEMORY * 

I 

V 

♦ *w)SR TO ADDRESS UNDER *********** 
** TEST ** — »> >**MAUT ** 

************************* I 

V 

*********************** 

* EXICUTE INSTRUCTION * 

* IN MEMORY ADDRESS * 

* UNDER TEST (MAUT) * 

I 
V 

*********** 

«< — **RETURN ** 

I *********** 

I 

I 

V $ERR0R(63) 

************************* 

/ DID THE \N0 ** ERROR: INSTRUCTION 

/INSTRUCTION EXICUTE\ >**DIDN'T MODIFY ITSELF.** 

/ PROPERLY? \ ** ** 

. ************************jjf 

I YES I 

V MMUP(56) 
************************* 

** UPDATE ADDRESS ** 
POINTERS ♦* 
** *♦ 
************************* 

IDONE 

I 

I 

I 

V 
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TST23 INITMM(55) 

INITIALIZE ADDRESS ** 
♦* POINTERS 
** * * 

4i4ii|i«4i4i4iitti(t4c«4i*4i4ii|>i(i«4(««4i4'*« 
>I 

V 

♦ PUT INSTRUCTION ♦ 

♦ 'MQVB R3,-(R2) ' * 

♦ AND RTS INTO MEMORY ♦ 

I 

V 

**JSR TO ADDRESS UNDER 

** TEST ♦* — >»- 

** 



I 
I 
I 

V 

/ DID THE ■ \N0 

/INSTRUCTION EXICUTE\ 

/ PROPERLY? \ 

I YES 

I< 

V MMUP(56) 

MORE MEMORY UPDATE ADDRESS *♦ 

POINTERS ♦* 

** 

IDONE 

I 

I 

I 

V 



« « * >tE « « « If * 4> « 

>**MAUT ** 

» « >tt « If 4i « « « «■ « 

I 
V 

♦ EXICUTE INSTRUCTION * 
« IN MEMORY ADDRESS * 

♦ UNDER TEST (MAUT) * 

I 



-«< — «*RETURN 

If « « 4i « 4i >f He « « « 



$ERR0R(63) 

I|c:([if)f*4rif«itiif]fif>fi|[i(iif4i4i4i4i4i«if«if 

error: INSTRUCTION ** 
->**DIDN'T MODIFY ITSELF.** 

*♦ ** 

if)t(itiii(«««««*««i«4>9f«seiitii|i«4ii»4i4i« 
I 
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TST24 INITMIViC 55) 

INITIALIZE ADDRESS 

POINTERS ** 

V 

* PUT INSTRUCTION * 

* 'NEG (R2) ' * 

* AMD RTS INTO MEMOrCV t< 



**JSR TO ADDRESS UNDER ******* 
TEST =^:^-^»> >**MAUT 



* EXICUTE INSTRUCTION * 

* IN MEMORY ADDRESS * 

* UNDER TEST (MAUT) * 

**** 

I 

V 



-<«— *«RETURN ** 

I **^******«* 

I 
I 

V $ERR0R(63) 

/ DID THE \N0 ERROR: INSTRUCTION ** 

/iKiTRUCTION EXICUTE\~- — >**DIDN'T fVIODIFY ITSELF.** 
/ PROPERLY? \ 



I YES 



V MlViUPCSS) 

MORE mmm'i update address 

^^^^^ ^^^^^^^ POINTERS 

IDONE 

I 

I 

I 

V 



% 
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TST25 INITMM(55) 

INITIALIZE ADDRESS ** 
** ■ POINTERS ** 

** 

« 4, )»( 4e 4! « . . « 4! 4i « « )K « « Id :tiit< 4! « « « !(! « 
, >I 

V 

* PUT INSTRUCTION * 

* ' BICB (R2)+,-(R2) ' * 

* AND RTS INTO MEMORY ♦ 

I 

V 

**USR TO ADDRESS UNDER 

** TEST ** — »>- 

■ ** 



/ DID THE \N0 

/INSTRUCTION EXICUTE\ 

/ PROPERLY? \ 

I YES 

!<-.« 

V MMUP(56) 



>*«MAUT 

^ ^ >|i « s» « « « $ i$i 1$: 
I 

V 

* EXICUTE INSTRUCTION * 
^ IN MEMORY ADDRESS ^ 

* UNDER TEST (MAUT) * 

I 

V 

— «< — **RETURN ** 



$ERR0R(S3) 

** ERROR: INSTRUCTION 
->**DIDN'T MODIFY ITSELF.** 

i^iiti « }$ii$i:it lit « 1^ 1» « 1^ « $ III i» « ^ « iSi « « ^ sH Jti 



MORE MEMHRY 



UPDATE ADDRESS 
POINTERS 



— .** 

«^ 

IDONE 

I 

I 

I 
V 
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TST26 INITMM(55) 

INITIALIZE ADDRESS ** 
♦* POINTERS *« 

♦ ♦ ** 

V 

* :">UT INSTRUCTION * 

* 'BISB (R2)-»-, (R2) ' * 

* AND RTS INTO MEMORY * 

I 

V 

♦*JSR TO ADDRESS UNDER ** *********** 

TEST ** — »> >**MAUT 

♦* ** *********** 

************************* I 

V 

******************«¥*** 

* EXICUTE INSTRUCTION * 

* IN MEMORY ADDRESS * 

* UNDER TEST (MAUT) * 

I 
V 

*********** 

<« — **RETURN ** 

I *********** 

I 

I 

V $ERR0R{63) 

— ************************* 

/ DID THE ■ \N0 ** ERROR: INSTRUCTION ** 

/INSTRUCTION EXICUTE\ >**DIDN'T MODIFY ITSELF.** 

/ PROPERLY? \ ** 

— — . ************************* 

I YES I 
I< 

V MMUP(56) 
************************* 

MORE MEMORY ** UPDATE ADDRESS ** 

^ ** POINTERS ** 

«* . ** 
************************* 
lOQNE 
I 
I 
I 
V 
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MORE MEMORY 



TST27 INITMM(55) 

** INITIALIZE ADDRESS 

** POINTERS ** 

** 

I 

>I 

V 



* WRITE 4K WITH 
♦000377-ADDRESSING 



;p * 



*** I 
>I 

*** V 

* DECREMENT * 

* ADDRESS AND * 

* READ WORD * 

I 

V $ERR0R(63) 

« **«)J<***:j5*«***:«(*««*jjt*««**sJ. 

/ D.TA READ =:DATA \N0 ♦♦ERROR: DATA READ DOES** 

/ WRITTEN \ • >*« NOT EQUAL DATA ** 

/ \ ♦» WRITTEN ** 

«- «■ *****4t)|<**«******«*****sjij4t* 

*** I YES I 

#B* >l< 1 

*** V 

* SWAP BYTES IN CHECK * 

* REG. AND WRITE THIS * 

* DATA INTO TEST LOC . * 

I 

V $ERR0R(63) 

/ READ TEST LOC. \N0 **ERR0R: DATA READ DOES** 

/DOES IT EQUAL CHECK\ >** NOT EQUAL DATA ** 

/ REG. \ ** WRITTEN ** 

I YES I 

I< 1 

V 

* SWAP BYTES IN * 
^CHECK REGISTER * 

* * 

I 

V 
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**MMUP: UPDA 
POIN 

4t* 



/ PASS COUNT 
/ OR 3? 



I YES 

V 



\N0 
\— 

\ 



NO / \ 

„/ DQf^g PASS? \ 

/ \ 

I YES 

V 

♦INCREMENT PASS ♦ 
COUNTER * 



$MMUP 

E ADDRESS 

ERS <~ 



DONE 



* NO MORE MEMORY. * 

* GO TO NEXT TEST. ^ 



YES /DONE FOUR PASSES \ 

/ ON A 4K? \ 

/ \ 

I NO 

V 

* SWAP BYTES IN * 
♦CHECK REGISTER ♦ 

X 

I 

I 

I<— 

I 

V 



I 

V 

♦UPDATE TO NEXT * 
♦ ADDRESS * 
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/ \YE$ 

/ DONE A PASS? \ 

/ \ 

NO 



/DATA READ = DATA \N0 
/ WRITTEN \— 

/ \ 



V 

* INCREMENT PASS * 
*COUNTER-SWAP BYTES IN* 

* CHECK REGISTER * 

I 

V 

/ \N0 
/ PASS COUNTER ^2? \ 
/ \ 



I YES 
V 

****** *«)Jjs|ljjf«*li!S^«4iS}«*$«^ 

* RESET ADDRESS TO * 

* BOTTOM OF 4K * 

* * 

***********i(<«**ltc4(*l|!<4!«*$ 



I YES 
I 

I 



->«B*<' 

*** 



$ERR0R(S3) 

*********************>;s*#i* 

**ERROR: DATA READ DOES** 
■>** NOT EQUAL DATA ** 
** WRITTEN ** 

***********«**4<ii'ii<!K!$>$s»««*|!« 
I 
I 

1 
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TEST 30: MOS REFRESH TEST 



MORE MEMORY 



INITMM(55) 

♦* INITIALIZE MEMORY ** 
♦* ADDRESS POINTERS ** 

#* 

I 

>I 

V 

* SET UP DATA PATTERN * 

* TO BE WRITTEN * 
♦STARTING WITH 125^52 * 

I 
I 

V 

* WRITE A * 

* WORD-COMPLIMENT THE * 

* DATA FOR NEXT WRITE * 

I 

V 

NO / \ 

/ END OF BLOCK? \ 

/ \ 

I YES 

V MMUP(56) 

** UPDATE ADDRESS ♦* 
POINTERS ** 

I 

V 

^fUtitf-Jf ******************* 



* STALL FOR 2 SECONDS * 



m********************** 
I 

V INITMM(55) 

♦* IMITIALIZE MEMORY ** 
** ADDRESS POINTERS ** 
** * * 

***** it******************* 

I 

I 

I 

V 



4 
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>I 

V 

* INITIALIZE DATA * 
♦PATTERN FOR CHECKING * 



***** 



it)ti****4<********** 
I 

>I 

V 



/ IS DATA READ » \N0 
/ DATA WRITTEN? \— 
/ \ 



I YES 

I< 

V 



♦COMPLIMENT CHECK DATA* 
♦ * 
#***♦*****♦«*♦***♦***** 

I 

V 



NO 



/ 



END OF BLOCK 



\ 



MORE MEMORY 



I YES 

V MMUP(56) 

>^:)c****************«****** 

** UPDATE ADDRESS ** 

** POINTERS *« 

** ** 
************************* 

IDONE 

I 

V 



$ERR0R(63) 

*:(t*«***!tC***«******«****** 

** ERROR: REFRESH ** 
->** CIRCUITRY FAILED *♦ 
** ** 
************************* 

I 
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INITMM(55) 

** INITIALIZE MEMORY ** 
♦* ADDRESS POINTERS *♦ 

4<4i ** 
I 

>I 

V 

* SET UP DATA PATTERN * 

* TO BE WRITTEN * 
♦STARTING WITH 052525 * 

I 

I 

V 

* WRITE A * 

* WORD-COMPLIMENT THE * 

* DATA FOR NEXT WRITE * 

4ci«ii(> i«i « « 3(t « « « « 9f 4C 4: Xc « 4c « 4< ♦ « « 4c 

I 

V 



MORE MEMORY 



NO / \ 

/ END OF BLOCK? \ 

/ \ 



I YES 

V MMl'P(56) 

** UPDATE ADDRESS ** 
-** POINTERS ** 

I 

V 



* STALL FOR 2 SECOND^ * 



I 

V INITMM{55) 

4c:^**4<4t ****************** 

** INITIALIZE MEMORY 

** ADDHESS POINTERS ** 

»* ** 

I 
I 
I 

V 



i 



C20MCF0 0-1 24K MEM EXER 16K 
TEST 31 : MOS REFRESH TEST 



DECFLO VER 00.07 20-FEB-78 07:58 PAGE 52 



>I 

V 

* INITIALIZE DATA * 
★PATTERN FOR CHECKING * 

* * 

I 

>I 

V 

/ IS DATA READ = \N0 
/ DATA WRITTEN? \— 
/ \ 

I YES 

I< 

V 

* * 

♦COMPLIMENT CHECK DATA* 

* ■ * 

I 

V 



NO 



END OF BLOCK 



MORE MEMORY 



I YES 

V MMUP(56) 

** UPDATE ADDRESS ** 
-** POINTERS *♦ 

** *♦ 

IDONE 

I 

V 



$ERR0R(63} 

** ERROR: REFRESH *« 
->** CIRCUITRY FAILED ** 
** ♦» 

I 



CZOMCFO 0-1 24K MEM EXE8 1SK 
DONE 



DECFLO VER 00.07 20-FEB-78 07:58 PAGE 53 



DONE 



RELT0P(58) 



RELOCATE PROGRAM TO 
THE TOP OF MEMORY 



*START1 (16)* 



/PROGRAM IN MEMORYXNO 
/ "TO BE TESTED? \— — 
/ ^ \ 

I YES 
V 

/ INHIBIT PROGRAM \YES 

/ RELOCATION? \ 

/ (SW07=1 )? \ 

I NO 
V 



YES /F-rJOGRAM IN BANKS \ 

AND 1? \ 

/ 

I NO 

V REL0(59) 

**RELOCATE PROGRAM INTO** 
^* BANKS AND 1 ** 

I 

V R£SLDR(59) 

RELOCATE THE LOADER ** 
AREA TO ' TOP OF 
MEMORY' 

I 

I<„^ — « 

I 
V 



C20MCF0 0-1 24K MEM EXER 1 6K 

END OF PASS 
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$EOP 

♦STANDARD 'SYSMAC' END* 
* OF PASS ROUTINE * 



I 
V 

/ TYPE END OF PASS / 
/ MESSAGE / 



************ 
*START1(16)*<' 



•>**EXIT ** 



i % 
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**MMINIT ** 

Jlnmm* « # !$t 41 >|> « 

I 

MMINIT V 

♦SET UP ALU THE MEMORY* 
♦MANAGEMENT REGISTERS.* 

it(4i4c4c«*Xi4i**4c4<4t4i**4t*****4i 
I 



♦♦RETURN ♦* 



♦♦INITMM ♦♦ 

I 

INITMM V 

♦LOCATE FIRST BANK IN * 
* TEST MAP * 



I 
V 

/ LAST BANK AS \N0 
/ WELL? \— 

/ _ \ 

I YES 
V 

♦SET UP LAST ADR MASK * 

* ■ * 

I< ■ 

V 



/ \N0 

/ BK BLOCK SIZE? \— 

/ _ \ 

I YES 
V 

♦ SET UP SECOND BANK ♦ 

♦ POINTERS ♦ 



I<- 

V 



/ FIRST BANK FLAG \N0 
/ SET? ' \— 

/ _ . \ 

I YES 
V 

* PUT FIRST ADDRESS * 
♦INTO ADDRESS POINTER * 

* * 

I 
I 



iS< !H * * * * Ht * * * * 

♦♦INITDN ♦* 

I 

INITDN V 

* SET UP ADDRESS * 

* POINTERS TO LAST ♦ 

* POSSIBLE ADDRESS ♦ 

I 

V MM DOWN ( 56 ) 

♦♦SEARCH DOWNWARDS FOR ♦♦ 
♦♦TOP BANK IN TEST MAP ♦♦ 
** ** 
,tf^^ti,,^:ii^^iti ***************** 

I 
V 



/ LAST BANK FLAG \N0 

/ SET? \— 

/ \ 



I YES 
V 

♦PUT LAST ADDRESS INTO* 
♦ ADDRESS POINTER * 

« * 

*it,il:^**********:^*****it,*** 



. . >I<- 

INITEX V 

*;^*****7^*^*^ 

* SAVE RETURN PC FOR * 

* LOOP ADDRESS * 

* * 
*******^**iiii**;^i*****^f*** 

I 
V 

*********** 
♦♦RETURN ♦♦ 

,ti******4L*** 



i 
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^ Jit si: 1^ 3|! >$! Ifl $ 9t! J$! 

**MMUP ** 

« « « 4i * 4> 4i 41 * « 

I 

MMUP V 

/ WES 
/ LAST BANK? \ 

/ \ 



I NO 

I 

I 

I 

I 

I 

I 

V 

♦FIND NEXT BANK (NEXT * NONE 
*TWO BANKS IF 8K BLOCK* 

* SIZE) * FOUND 

********** ^*!«<ijE**:tt**#**# 
I 

V 

/ \N0 

/ LAST BANK? \ 

/ _ \ 

I YES 

V 

*********************** 

* SET UP LAST ADDRESS * 

* MASK * 



/ 



\N0 

LAST ADDRESS? • \— 
\ 



I YES 

V CKPMER(61 

********** 41**** ********** 

** CHECK FOR NON-TRAP ** 
->♦ ♦MEMORY PARITY ERRORS. ♦♦ 
♦ ♦ ♦♦ 
************************* 

I 
V 

*********** 

♦♦RETURN ♦♦ 
*********** 



*********************** 
I<— - 
V 

*********************** 
♦ADJUST RETURN ADDRESS* 
* TO LOOP « 



*********** 

**f«^DOfe^N ** 
*********** 

I 

MMDOWN V 



FIRST BANK? 



\YES 
\ 



I NO 

I 

I 

I 

I 

I 

I 

V 

**************** ****4i** 

* FIND NEXT LOWER 4K * 

* BANK ♦- 

* ♦ 
*********************** 

I 

V 



\N0 

FIRST ADDHESS S—- 



/ 




\ 




I YES 




. FOUND 













4i*4i*****4>** 

«*tETURN *♦ 



FIRST BANK? 



\ND 

. \ 

\ 



I YES 
V 

*********************** 

* SET UP LAST ADDRESS * 

* MASK ♦ 

♦ ♦ 

*********************** 

I<- 
V 

*********************** 
♦ADJUST RETURN ADDRESS* 

♦ TO LOOP * 



************..-********** 
I 
V 

*********** 

♦♦RETURN ♦♦ 

*********** 



********************««4i 

I 

V 

*********** 

♦♦RETURN ♦* 
*********** 
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SUBROUTINES FOR ADDRESS AND WORSE CASE NOISE TESTS 



^ « !^ 4t >|s 3<> « !^ 

'f'^PHYADR 

I 

PHYADR V 

* GET VIRTUAL * 

* ADDRESS (FROM * 

* R2) * 

I 

V 

/WiEMORY MANAGEI^ENT\NO 
/ AVAILABLE \— 

/ \ 



jjC >^ ^ lit 

**BANKNO *♦ 

I 

BANKNO V 

* CALCULATE BANK # * 

* USING TEST MAP BANK * 

* POINTER * 

I 
V 

**RETURN ** 



*********** 
**SETCON ** 
*********** 

I 

SETCON V INITMM(55) 

************************* 

INITIALIZE ADDRESS ** 
** POINTERS ** 

** ** 
************************* 

>I 



YES 



********** 4 

*ADD INDEX FmCTOR FROM* 

* KIPAR2 TO GET * 

* PHYSICAL ADR * 

*********************** 
I< 

V 

*********** 
**RwTURN 

*******^**^ 



* PUT THE CONTENTS OF * 

* RO INTO MEMORY * 

* * 
*********************** 

I 

V MMUP(56) 
************************* 

MORE ** UPDATE ADDRESS ♦* 

** POINTERS 

MEMORY ** ** 

************************* 

I DONE 
V 

*********** 
♦♦RETURN ** 
*********** 



**** ******* 
♦♦ROTATE ♦♦ 

*********** 

I 

ROTATE V 

*********************** 

♦ROTATE C-BIT THROUGH ♦ 

♦ 16 BIT WORD. * 

* # 
*********************** 

I 



*********** 
♦♦RETURN ♦♦ 

*********** 



*********** 
♦♦W3X9 ♦♦ 

******:)(**** 
I 

W3X9 V 



♦WRITE 256 WORD WITH 4^ 

♦ OF A PATTERN THEN 4 ♦ 

♦ OF ANOTHER ♦ 
*****.***************** 

I 

V 

*********** 

♦♦RETURN *♦ 
*********** 



CZQMCFO 0-1 24K MEM EXER 16K 
RELOCATION SUBROUTINES 

******* 

**RELOC ** 

*********** 

I 

RELOC V 

*********************** 

* MOVE 8K BLOCK OF * 

* MEMORY FROM SRC TO * 

* DST * 
*********************** 

I 

V $ERR0R(63) 

— ****** **************4i*i|i** 

/ DATA OK AFTER \N0 ** ERROR! RELOCATION ** 

/ MOVE? \ >** FAILURE ** 

/ \ ** ■ ** 

— — *****************i|i**4t*«** 

I YES I 

V V 
******************** *********** 

/ TYPE PROGRAM / ♦♦HALT ** 

/RELOCATION MESSAGfc/ *********** 

/ / 
******************* 

I 

V 

*********** 

♦♦RETURN ** 
*********** 
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*********** 

♦♦RELTOP ** 
*********** 

I 

RELTOP V 

NO / MEMORY \YES 

/ MANAGEMENT? \ 

I / \ I 

I I 

V V 

*********************** *************4r****i|i«ifi«4i 

* SET UP DESTINATION * * SET UP MEM MGMT ♦ 

* PART OF 'RELOC TO ♦ *REGISTERS TO POINT TO* 
* POINT TO LAST 2 BANK ♦ ♦ LAST 2 BANKS ♦ 
*********************** i(i*********************« 

I I 

V REL0C(58) V REL0C(5i) 
************************* ************************* 

** RELOCATE PROGRAM TO ** ** RELOCATE PROGRAM TO 

*« LAST 2 BANKS *« ** LAST 2 BANKS , | 

*♦ ** ** f 

************************* *********«***««««* *«4i4i4fi«. ^ 

I I 

V I 
*********************** I 

♦ADJUST ALL PERTINENT * I 

* ADDRESS POINTERS * I 

* * I 
*********************** I 

I I 
>I< ^ 

V 

*********** 

♦♦RETURN ** 

***i|i*****3^^ 



f 4 
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RELOCATION SUBROUTINES 



♦ * ■. ******** 
**RELO ** 

If 41 4c 4< 4r « * 4> itc « 4> 
I 

RELO V 

NO / MEN'ORY \YES 
/ MANAlaEMENT? \ 

I / \ I 
I I 

I I 

V REl.0C(5a) V 

♦♦RELOCATE PROGRAM BACK** ♦ SET UP MEM MGMT ♦ 

♦♦ TO BANKS 0+1 ♦♦ ♦REGISTERS TO POINT TO* 

♦ ♦ *♦ ♦ Bm.JKS 0+1 ♦ 

I I 

V V REL0C(58) 

««4i4i4i4<4iiti*4t4>>|i4i4>4i4>4t*«**** )|!««>K«4<!(c«]ii«^«:K4(9tii«i4i34<«*«4'««4! 

♦ADJUST ALL PERTINENT ♦ ♦♦RELOCATE PROGRAM BACK** 

♦ ADDRESS POINTERS * ** TO BANKS 0+1 ** 

♦ * ** ** 

*4i*>|i4i4>****4i)«t**********4i ♦♦♦♦♦♦**♦♦***♦♦***♦♦♦**♦* 

I I 

I 

V 

« « jil « « )«> 4iiit « « « 

**RETURN ♦* 

««3ii>it«4<«««*« 



♦♦RESLDR ♦* 

1(1 4i 4c>f 4i « 4i 4i 4( 4i 4i 
I 

RESLDR V 

* MOVE " LOADER" FROM ♦ 
« END OF 8K TO TOP OF « 

♦ MEMORY * 

4>4'>ti4i4i*4i4>4'4>4'***t<>ti****4i4i4i 
I 

V 

* « iti * « 4> * 4i ♦ 4< 

♦♦RETURN ♦♦ 

Ki 41 4i4c 4c 4> >t< iti 111 4i 4i 



1 



) 
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PARITY ROUTINES 



♦♦PESRV *« 

4t « itt « 4t * 41 
I 

PESRV V 

/ TYPE UNEXPECTED / 
/ TRAP MESSAGE / 
/ / 

I 



/ERROR FLAG SET IN\NO 
/ ANY PARITY \— 
/ REGISTER? \ 



**SETAE ** 

« 4t « « 1^ 4( « « 4( « 4i 



$ERR0R(63) 

error: TRAP BUT NO ♦* 
->♦* FLAG ** 

** ** 



« i)i4i 4> « * « « * « 

**MAMF «* 

I 

MAMF V 



I YES 
V 

** REPORT TRAH PC AND ** 
** REGISTER DATA ** 
** *♦ 

I 

V PSCAN(61) 

** SCAN ME. ORY FOR ALL ** 
**BAD PARITY LOCATIONS ** 

** ** 

I< 

V 

**RETURN ♦* 

itc 4c * « 4c 41* 4i 4^ 4> 4^ 



/ PARITY REGISTER \N0 
/ EXIST AND NOT \— 
/ INHIBITED? \ 

I YES 
V 

*SET UP PARITY VECTOR.* 
->* SET 'ACTION ENABLE' * 
* IN ALL REGISTERS * 

4i4i«4>4i4c4c4c4c4c4c4c4i4c4c4c4ci»i4i*4i4i4i 
I< 



4c « 4> * 4c 4t 4c 4c 4c « « 

♦♦RETURN ♦♦ 

4c >»> 4c 4c 4c 41 ♦ ♦ 4c ♦ 4c 



4c 4c 4c 41 4c 4c 4c 4c 4c 4c 4c 

♦♦CLRPAR ♦♦ 

4c 4c 4c 4c 4c 4c 4( 4c ♦ 4c 41 
I 

CLRPAR V 

4c4c4c4'4c4c4c4c4c*4(4c4c4c4(4c4c4c4c4>4c«4c 

♦CLEAR OUT ALL MEMORY ♦ 

♦ PARITY REGISTERS ♦ 



4(4c4c4c4c4c4c4c4c4i4c4c4c4c4c4c4c4c4>4'«** 
I 



4c 4c 4c 4c 41 4i 4c 4c ♦ 4c 4> 

♦♦RETURN ♦♦ 

«4c4c4c4c4'*4c*4!4> 



) 
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1^ Iff s): ^ in Til ^ 

**CKPiV!ER 
I 

CKPMER V 

NO / PARITY REGISTER \ 

EXIST AND NOT \ 
/ INHIBITED? \ 



NO / ANY ERROR FLAGS \ 

<— — / SET? \ 

/ \ 



/ERROR SHOULD HAVE\YES 
/ TRAPPED? \-— 

/ \ 



$ERR0R(63) 
************************* 
ERROR: PARITY ERROR ** 
->*« SHOULD HAVE TRAPPED ** 
** ** 



I NO 

V $ERR0R(63) 

***** *s{t******»|s***«* 
*♦ *♦ 

** ERROR: PARITY ERROR ** 
* * ** 

************************* 
I 

V PSCAN(61 ) 

************************* 

** SCAN MEMORY FOR ALL 
**BAD PARITY LOCATIONS.** , 

** ** 
************************* 

„>i< — . — 

V 

****** .**** 

**RETURN 

*********** 



********>;>** 

**PSCAN ** 

*********** 

I 

PSCAN V 

******************** 
/ TYPE SCANNING / 
/ MESSAGE / 

/ / 

******************* 
>I 



*********************** 



*READ MEMORY LOCATION * 



*********************>■ * 
I 



/ANY PARITY ERROR \YES 

/ FLAGS? \ 

/ \ 



I NO 

I< 

V 



$ERR0R(63) 
************************* 

** ERROR: PARITY ERROR ** 
->** AT LOCATION. ** 
** ** 
************************* 

I 



*********************** 

* UPDATE ADDRESS * 
-* POINTERS * 

* * 
*********************** 

I DONE 
V 

/ANY PARITY ERRORS\NO 
/ FOUND? \ — 

/ 

I YES 

I< 

V 

*********** 

**RETURN ** 

*********** 



$ERR0R(63) 
************************* 

** ERROR: NO PARITY ** 
->*« ERRORS FOUND ** 
** ♦* 
************************* 
I 



i 
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SPECIAL PRINTOUT ROUTINES 



« 4< f * 4c 4t * 4> >ti >t( 

**SPRNT **- 

Ki 4< « ♦ 4i 4t # 4< ♦ « * 



**SPRNTQ ♦*- 



>tc4>i(i4c ,4ci(c 4t iti « « 41 

♦♦SPRNTR **- 

*♦♦♦ 4( 4c * i(> 4i 



4c)t< 4< * 4( * * 4< * 4> >|i 

**SPRNT0 

^^tf^f* « 4t 4^ 4> 4c>|( 4c 



4i 4> 4< 4> 4< 4< 4' 41 4< 4< 4( 

♦♦TYPMAP ♦* 

4E4'4i4t4t4c4i4<«4<4i 
I 

TYPMAP V 

/ MAP CONTAIN 
/ FLAGS? 



/ 



\N0 
\— 
\ 



I YES 

V 

4c4<4c4t4<*4'4>4c4<4<4c4r4>4<4i4i4t4t4E 

/TYPE FIRST + LAST / 
/ ADDRESS OF BANKS / 
/ FOUND / 

4i4>4i4>4(4i4t4'4e4<4i4<4<4r4i4(4t4i4t 



4>4i4i4^4i4<4i4c*4i4i4t4i4>*4i4i««4i 

/ TYPE EMPTY MAP / 
->/ MESSAGE / 

/ / 

iH 4< «^ !^ « !f ^ 4> !i' lis i» 



4s***4<*..**** 

♦♦SPRNT1 **- 

sjt4(4'4:$«4ts»4siK3|E 



4c4i4e4<4<«4>4i4i4c4' 

♦♦RETURN *• 

4i4(4i4>4i4t*4>4>4i4i 



4c«4:4' 4c4<4'«4>4i4( 

**SPRNT3 ** > 

«4c4c . ******* 



V 

4[4i***4>************ ** *** 

* ROUTINES TO SET UP « 
« DATA FOR ERROR * 

* TVPEOUTS. * 

i|i^4!««iti^4'*************** 
I 

V 

41 4t ******** * 

**RETURN ** 

4c!$i4t******** 



4c 4c 4c******** 

**SPRNT2 ** — 

4e * * 4c * * * * * 4c * 



4 



) 
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SYSMAC AND STANDARD UTILITY ROUTINES 



SSCOPE 

« * * 4c>«c 41 4< * « 4> * ♦ CONTROLS LOOPING, * 

**$SCOPE **— >* INTERATIONS, ETC. *- 

*******»♦♦♦ ♦ BETWEEN SUBTESTS ♦ 



->**RETURN ** 



**$ERROR **- 

41 « lit * illltl 4! « « # « 



$ERROR 

♦COUNTS ERRORS, LOOPS.* 
->*PASS DATA TO SERRTYP *- 



# m * 41 i(t 4c « « « « )»i 

->**RETURN ** 

4< i|E « 4t 4! « 4t 4t 4i « « 



ERRTYP 



4i4:*««4(4<4<4!4<« * TYPEOUT ERROR * 
♦♦ERRTYP ♦♦ — >*MESSAGE, HEADER, AND ♦• 

4(4i3je««4i*««>i<4t * DATA ♦ 

4i««4i4c4i4t**-.'-4>*«4>>i'4i*«4i*4<>ii4i 



« 41 « « He >»> <«! 41 « « 4( 

~>**RETURN ♦♦ 

4ti»»4i4i4i4>4i«4i4i 



$RDCHR 

4c4>4i4>*4t«4t*4t4i4i^^^^4r4i«4t4i4>4> 

********4.** ♦INPUTS CHARACTER FROM* 
♦♦SRDCHR ♦* — >* TTY *- 

4>*4'4<*4c*4<4i4>4> * ♦ 

4[4i4>4i*4i*4>4i4i4t4> ♦♦♦♦♦*♦♦♦♦♦ 



4c4c4i4i4i4>*4i4i*4< 

■>**RETURN *♦ 

4c 41 4< * « 41 * * )«< ► * 



4c 4i * 4: « 41 « # 4! 4! « 

♦♦SROLIN *♦- 

4c 41 4: « 4c 4c « 4c « 41 4c 



$ROLIN 



♦ INPUTS STRING OF ♦ 
->* CHARACTEr-3 FROM TTY *- 



SRDOCT 



4i4i4<4i4i4i4i4c4i4'4i 

■>**return ♦♦ 

4c*4c4c4<^^^4i4t4t 



♦♦SRDOCT ♦♦- 

# 4c 4c >^ 4c 4c 4> 4c 4t ♦ ♦ 



♦CONVERTS ASCII OCTAL ♦ 
->♦ NUMBER TO MACHINE ♦- 
♦ NARY ♦ 

4c4i4c4i4c4i4i4c4i4c4i4i4i4i4i4i4>*4'4i4i^* 



4c4>4i4c4i4i4i4c4i4i4c 

->**RETURN ♦♦ 

4c 41 41 41 4c 41 4t 41 41 41 



411^ 4c 41 V 41 41 41 4i 4c 4t 

♦♦SPRINT ♦♦■ 

41 41 4: 41 41 41 41 41 4i 41 ♦ 



SPRINT 

4i4(4i4i4i4i4t4i4i4i4i4i4i4c4'4c4c4i4i4i4i4i^ 

♦ RELOCATES MESbAGE ♦ 
->♦ ADDRESS FOR $TYPE *- 

* ♦ 

4c4i4i4<4i4i4c4i4c4>4c4i4<4c4i4i4i4c>^*4<4c4i 



4r 4c ♦ 41 41 ♦ 41 ♦ ♦ 4i 41 

->**RETURN ♦♦ 

41 41 41 41 4c 41 4i 4i 41 41 4> 



4i 41 4< 4i 4c 41 41 41 4c 4c 4c 

♦♦STYPE ♦♦- 

4c 4c 4i 4i 41 41 4c 4c 4c 4< 41 



STYPE 

4t4<4<4i^4t4c4c4i4i4i4<!^4i4<4i4c4i4!4i4c4i4i 

* TYPES OUT A MESSAGE * **4i*4c*4i*4.«4. 
->4. ON TTY. ♦ — >**RETURN ♦* 

4c 41 4t 41 41 « 4( 4c 4i 4c 41 4> 4! 

4c4>4i4i4'4c4c4c4c4i4i4<4< I«4!4c*4!*4c4<4i4i 



STYPDS 

4c4c4i4i4'4c4c4i4c4!4t4!4ci^4<4ti^i»4i4i3^4c4i 
4c 4c 4c 41 41 4c 4c 4i 41 4c 41 4i 4i 

♦ ♦STYPDS ♦♦— >*TYPE A DECIMAL NUMBER*—; 

4i 41 4c 4c 41 41 41 41 41 4i 41 4« 4c 

4t4i4c4c4i4!4<4(4i««4!«4c4i4<4!4i4i4i4c4t4i 



4i4i4<4i4i4<4i«4i4i4i 

>«*RETURN *« 

4c « 4< 4s ♦ ♦ 4> ♦ 41 ♦ ♦ 



4c 41 41 41 4c 41 :^ 4c 41 4c 41 

**STYPOC 

4c 4c 4> 41 41 4c 41 41 41 41 41 



STYPOC 

4c4c4c4i4c4c4i4c4c4c4c4c4c«4i4c4i4c4i4c4<4i4i 

4c 4c 4<**4e4i4t4e4:4i*4! 

->*TYPE AN OCTAL NUMBER ♦ — >**RETURN *♦ 

41 41 4c4t4i4c454!4c4«4i4i4i 



41 4c 4> 41 41 41 41 41 4c 41 41 

♦♦ERRTRP ♦♦- 

4c 41 4c 41 41 41 41 41 4c 41 4< 



4c 41 41 « 41 4c 4c 41 41 41 41 

♦♦STYPAD *♦- 

4> 4c 4c 4c 4c 4c 4c 4c 4c 41 4c 



ERRTRP 

4" 4" 4c 

* UNEXPECTED TIMEOUT 
->* TRAP (TO 4) ROUTINE ♦— >4c*HALT 



I^4c4t4>4i4t4i4i4i«4c4c4i4c4i4i4>3^4i4i4i4!!|i 

STYPAD. 

4c4<4i4i4i4i4i4c4c4c4c4c4i4c4c4c4i4c4i4i4i4c4c 

* TYPE AN 18-BIT « 
->* ADDRESS (OCTAL) *- 

4c * 
4i4c4c4i4(4i4i4i4c4i4c4c4i4(4(^4i4:4!4c4<4c4!4c 



4c4t4i4t4i4c4i4c^4<4> 



4c 4c 4c 4c 4c « 41 4c 4> 4i 4i 

->**RETURN *« 

4: 41 41 4: >»4< 41 41 414141 



414141 4(4(4(41:4(4: 414c >^4i4>4s4c4i4c4i!tt4e ♦4c 



ASCII MESSAGES 



4i4(4c4c4(4c4c4c4(*4!4c4(4c4c4<4c4'4i4<4>4i4s 



4<4i4(4i4!4c4i4(4c4i4i4c4c4c4!4(4(4(4(4(4i4i« 

♦ ERROR DATA FORMAT * 

* TABLE * 



4i4c4««4>«4c4t4i4i4c4c4i4c4(4c4(!^4(94i«i^ 



4c « 41 4c 4c 41 4( * 4( 4c 4c 

♦♦.END ** 

4c4c4(^^^4(4<4(4i4i 



i 



• i 



J 
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FLOW CHART CROSS REFERENCE LIST 



BANKNO 


57# 


57 










CKPMER 


24 


35 


56 


1 # 


61 




CLRPAR 


60# 


60 










CTRLS 


1 4 












DONE 


53 












ERRTRP 


63 


63^^ 










ERRT YP 


63 


63^ 










EXIT 


54 












GMPR 


08 


1 2 


1 2 








GMPRA 


1 2 












GMPRB 


1 2 












GMPRC 


1 2 












HALT 


03 


04 


04 


08 


1 1 


58 


INI TON 


1 7 


1 8 


1 9 


21 


2 1 


55# 


INI TEX 


55 












INI TMM 


1 7 


1 8 


1 9 


20 


20 


22 




32 


33 


33 






OQ 




55 


57 










MAMF 


38 


60# 


60 








MANUA L 


1 2 


1 5^ 


1 5 








MANUL1 


1 5 












MANUL2 


1 6 












IVIAr Kb 


1 3 












MAUT 


40 


4 1 


42 


43 


A A 


AK 


MMDOWN 


1 7 


1 8 


1 9 


21 


21 


55 


iVi'Vl 1 N 1 1 


09 


55# 


DD 








KAMI t D 

mlVlUr 


1 / 


1 a 

1 O 


1 Q 


'in 


20 


22 




TO 






34 


38 






57 












PBTRP 


36 












PESRV 


60# 


60 










PHYADR 


57# 


57 










PSCAN 


60 


61 


61# 


61 






RELO 


03 


53 


59lf 


59 






RELOC 


58# 


58 


58 


58 


59 


59 


RELFOP 


53 


58# 


58 








RESCHK 


14 












RESLDR 


03 


53 




59 






REST1 


02 












REST2 


02 












RESTAR 


02^Sr 


02 


06 








RESTOR 


02 • 












RETURN 


04 


40 


41 


42 


43 


44 




58 


58 


59 


59 


60 


60 




63 


63 


63 


63 






ROTATE 


25 


26 


57i* 


57 






SELECT 


06# 












SETAE 


35 


60ff 










SETCON 


25 


26 


35 


57# 


57 




SPRNT 


62# 












SPRNTO 


62# 












SPRNT1 


62# 













63 
55 

23 24 25 26 27 27 28 29 29 30 31 3.1 

40 41 42 43 44 45 46 49 49 51 51 55# 



56# 56 

23 24 25 26 27 27 28 29 29 30 31 31 
40 41 42 43 44 45 49 50 51 52 56# 56 



45 55 55 56 56 56 56 57 57 57 57 57 
60 61 61 62 62 63 63 63 63 63 63 63 



I 
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SPRNT2 


62# 




SPRNT3 


62# 




SPRNTQ 


62^ 




SPRNTR 


624^ 




START 


06# 




START1 


03 


16# 


STARTA 


02 


06 


TIMOUT 


09# 




TMAP 


13 




TST1 


17 




TST1 1 


25 




TST12 


26 




TST13 


27 




TST14 


29 




TST15 


31 




TST16 


33 




TST17 


35 




TST2 


18 




TST20 


35 


39^ 


TST21 


40 




TST22 


41 




TST23 


42 




TST24 


43 




TST25 


44 




TST26 


45 




TST27 


46 




TST3 


19 




TST4 


20 




TST5 


21 




TST6 


22 




TST7 


23 




TYP^AP 


13 


S2M 


W3X9 


27 


29 


WWPB1 


35 


35# 


WWPB2 


36 


36# 


WWPB3 


37 




WWPB4 


36 


36 


WW PBS 


35 


35 


WWPBT 


35 


35# 


$EOP 


54 




SERRDR 


14 


14 




30 


30 




39 


40 




63 


63# 


SILLUP 


04# 




$MMUP 


47 




SPRINT 


04 


09 


SPWRDN 


04# 




SPWRUP 


04# 




SRDCHR 


63 


63# 


SRDOCT 


15 


15 


SROLIN 


63 





16 53 54 



39 



62 








31 


33 


S7*f 


57 


37 








37 








37 


37^ 






37 


37# 






38 








14 


17 


18 


19 


31 


"2 


32 


32 


41 


42 


43 


44 


10 


10 


15 


63 



63 63# 



20 


21 


23 


24 


33 


34 


34 


34 


45 


46 


46 


48 


63# 









25 


26 


27 


28 


36 


36 


36 


36 


50 


52 


58 


60 



28 


28 


29 


30 


36 


37 


37 


37 


61 


61 


61 


61 



CZQMCFO 0-1 24K MEM EXER 16K 
FLOW CHART CROSS REFERENCE LIST 



DECFLO VER 00.07 20-FEB-78 07:58 PAGE §$ 



63# 

SSCOPE 63 63# 

$TYPAD 10 10 63 63# 

STYPDS 63 63^ 

STYPE 63 634^ 

$TYPOC 63 63# 

.END 63 
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SEQ 00S4 



TITLE C2CMCF0 124K ..lEMORY EXERCISER, 1 6K VER 
••COPYRIGHT (C) 1975.1978 
"DIGITAL EQUIPMENT CORP. 
»MAYNARD, MASS. 01754 

♦PROGRAM BY BRUCE BURGESS/KEN CHAPMAN 

*THIS PRCGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
♦PACKAGE (MAINDEC-11-D20AC-C3) , JAN 19, 1977. 



13 


.SBFTU 


OPERATIONAL 


SWITCH SETTINGS 


14 










15 




SWITCH 




USE 


16 










17 




15 


HALT ON 


ERROR 


18 




14 


LOOP ON 


TEST 


19 




1- 


INHIBIT 


iRROR TYPEOUTS 


20 




12 


INHIBIT 


KT1 1 (AT START Tl'-'i ONLY) 


21 




1 1 


INHIBIT 


ITERATIONS 


22 




10 


BELL ON 


ERROR 


23 




9 


LOO? ON 


ERROR 


24 




8 


LOOP ON 


TEST IN SWR<4:0> 


25 




7 


INHIBIT 


PROGRAM RELOCATION 


26 




6 


INHIBIT 


PARITY ERROR DETECTION 


27 




5 


INHIBIT 


EXRERCISING VECTOR AREA. 


28 


!sBTTL 


BASIC DEFINITIONS 




29 
30 


;*INITj 


AL ADDRESS OF 


THE STACK POINTER *•* 1100 *** 


31 001100 


STACK= 


1 100 






32 


.EO'JlV 


EMT.^.RROR 


; -.BASIC 


DEFINITION OF ERROR CALL 


33 


.EOJIV 


101 .SCOPE 


; ;BASIC 


DEFINITION OF SCOPE CALL 



34 

35 ; -MISCELLANEOUS DEFINITIONS 



36 


0C001 1 


HT = 


1 1 


-.CODE FOR HORIZONTAL TAB 


37 


000012 


LF = 


12 


;CODE FOR LINE FEED 


33 


000015 


CR = 


15 


;CODE FOR CARRIAGE RETURN 


39 


000200 


CRLF = 


200 


;CODE FOR CARRIAGE RETURN-LINE FEED 


40 


177776 


PS= 


177776 


: PROCESSOR 'STATUS WORD 


41 




.EOUIV 


PS , P5W 




42 


177774 


STKLMT= 


177774 


;STACK LIMIT REGISTER 


43 


177772 


PIRQ:- 


177772 


-.PROGRAM INTERRUPT REQUEST REGISTER 


44 


1775- D 


DSWR = 


177570 


jHARDlAiARE SWITCH REGISTER 


45 


177570 


DDISPs 


177570 


-.HARDWARE DISPLAY REGISTER 


46 
47 




;-G£NERAL PURPOSE REGISTER DEFINITIONS 


48 


000000 


R0 = 




;GENERAL REGISTER 


49 


000001 


R1 = 


%1 


jGENERAL REGISTER 


50 


0C0002 


R2 = 


%2 


IGENERAL REGISTER 


51 


0-^0003 


R3 = 


%3 


;GENERAL REGISTER 


52 


000004 


R4 = 


%4 


;GENERAL REGISTER 


53 


000005 


R5= 


%5 


;GENERAL REGISTER 


54 


000006 


R6= 


%6 


;G_NERAL REGISTER 


55 


000007 


R7 = 


%7 


; ENERAL REGISTER 


56 


000006 


SP= 


%6 


;STACK POINTER 
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SEO 0085 



57 


000007 


PC = 


%7 


58 








59 




;*PRIORITY LEVEL 


60 


OOOOC J 


PRO* 





61 


000040 


PR1 = 


40 


62 


000100 


PP2 = 


100 


63 


000140 


PR3 = 


140 


64 


000200 


PR4 = 


2C J 


65 


000240 


PR5- 


240 


66 


000300 


PR6 = 


300 


67 


0" 0340 


PR7 = 


340 


68 








69 




■,*"SWITCH REGISTE 


70 


1 00000 


SW15 = 


100000 


71 


040000 


SW14 = 


40000 


72 


020000 


SW13 = 


20000 


73 


01 0000 


SW12 = 


10000 


74 


0040.00 


SW1 1 = 


4000 


75 


002000 


SW10=^ 


2000 


76 


001000 


SW09 = 


1000 


77 


000400 


swoa=^ 


400 


78 


OC0200 


SW07 = 


200 


79 


000100 


SWOd = 


100 


80 


000040 


SW05 = 


40 


81 


000020 


SW04 = 


20 


82 


OC0010 


SW03 = 


10 


83 


000004 


SW02 = 


4 


84 


000002 


swoi = 


2 


85 


000001 


swoo- 


1 


86 




. EOUIV 


SW09.1- .9 


87 




.EQUIV 


SW03,5Wa 


88 




.EOUIV 


SW07 ,SW7 


89 




.EOUIV 


SW06,SW6 


90 




. EOU I V 


SW05 , SW5 


91 




.EQUIV 


SW04 , SW4 


92 




.EOUIV 


SK03,SW3 


93 




.EOUIV 


SW02 , 5W2 


94 




. EOU I V 


SWOI .SW1 


95 




-EOUIV 


SWOO.SWQ 


96 
97 




;-*DATA 


BIT DEFINI 


98 


1C00O0 


BITiSs 


100000 


99 


040000 


BIT14= 


40000 


100 


020000 


BIT13= 


20000 


101 


0: 0000 


BIT 12 = 


10000 


102 


004000 


3IT1 1 = 


4000 


103 


002000 


BIT 10 = 


2000 


1 04 


001000 


BIT09= 


1000 


105 


000400 


BITOn? 


400 


105 


000200 


BITOT:: 


200 


107 


000100 


BIT06= 


100 


108 


000040 


BiT05= 


40 


109 


000020 


BIT043 


20 


110 


0C001 


81-^03 = 


10 


1 1 1 


000004 


BIT02= 


4 


112 


000002 


BIT01 = 


2 



; ; PROGRAM COUNTER 



;PRIORITY LEVEL 
;PRIORITY LEVEL 1 
;PRIDRITY LEVEL 2 
;PRIORITY LEVEL 3 
jPRIORITY LEVEL 4 
;PfiIDRITY LEVEL 5 
;PRICRITY LEVEL 6 
;PRIORITY LEVEL 7 

SWITCH DEFINITIONS 



I 
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CZQMCF.PIl 14-FEa-78 08:19 BASIC DtFINlTIONS SEQ 0086 

113 000001 BlTOOa 1 

114 .EQUIV BIT09,BIT9 

115 .EQUIV BITOa, BITS 

116 .EOUIV BIT07.BIT7 

117 .EOUIV BIT06,BIT6 

118 .EOUIV ^ITOo.BITS 

119 .EOUlV BIT04,BIT4 

120 .EOUIV BIT03 'UT3 

121 .EOUIV BIT02,DIT2 

122 .EOUIV BITOI.-ITI 

123 .EGUIV BITOO.BITO 
124 

125 ;» BASIC "CPU" TRAP VECTOR ADDRESSES 

126 C00004 ERRVEC= 4 ; ;TIME OUT AND OTHER ERRORS 

127 000010 RESVLC= 10 ;;RESERV£u AND ILLEGAL INSTRycaCNS 

128 000014 TBirvF.C-14 ; \ " BIT 

129 0C001 ; TRTVEC= 14 ;;TRACE TRAP 

130 OC0014 BPTVEC= 14 -. ; 6REAKPD I NT TRAP (BPT) 

131 000020 IOTVEC= 20 ; ; i NPUT, JUTPUT TRAP (lOT) **SCQPE** 

132 0C0024 Pwv;VEC= 24 ; -.POWER FAIL 

133 0C0O30 EMfVEC= 30 ; ; E!V.ULATOR TRAP { EMT ) **ERRaR** 

134 000034 TRA?V£C=34 ;;"TRAP" TRAP 

135 000060 TKVEC= 60 ;';TTY KEYBOARD VECTOR 

136 000064 TPV£C= 64 ;-.TTY PRINTER VECTOR 

137 000240 PIR0VEC = 240 ; ;PROGRAM INTERRUPT REQUEST ViZCTCR 
138 

139 

140 .SBTTL wrMO.JY MANAGEMENT DEFINITIONS 
141 

142 ;>»KT11 VECTOR ADDRESS 
143 

144 000250 MMVECs 250 
145 

146 ;-KTl1 STATUS REGISTER ADDRESSES 
147 

148 177572 SRO- 177_72 

149 177574 SR1= 177574 

150 177576 SR2= 177576 

151 172516 SR3= 172516 
152 

153 ;*KEF!NEL "I" PAGE DESCRIPTOR REGISTERS 
154 

155 172300 KIPDRO= 172300 

156 17 23 '.2 KIPDR1= 172302 

157 172304 KIPDR2= 172304 
150 172306 KTPDR3= 1 7230G 

159 172310 K.PDR4= 172310 

160 172312 KIPDR5= 1' 1312 

161 172314 KIP0R6= 172314 

162 172316 KIPDR7= 172316 
163 

164 ;*KERNEL "I" PAGE ADDRESS REGISTERS 
165 

166 172340 KIPARO= 172340 

167 172342 KIPAR1= 172342 

168 172344 KIPAR2' 172344 



CZOMCFO 0-124K rEMCRY EXERCISER, 



C20MCF 


PI 1 


14-FEB-78 


00:19 


169 




172346 




170 




172350 




171 




172352 




172 




172354 




173 




17 2356 




174 








175 




000000 




176 
177 




000006 




178 








179 




000001 




180 




0001 14 




181 








182 








183 




017777 




184 








185 








186 




177746 




187 








188 








189 








190 




oooooo 




191 








192 








193 








194 




000174 




195 


C0C1 74 


OOOOOO 




195 


000176 


OCOOOO 




197 








198 


000200 


000137 


002640 


199 


000204 


0167 


002436 


200 








201 


00021C 


000167 


000064 


202 


000214 


000167 


000064 


203 


000220 


000167 


003376 


204 








205 




000004 




206 


000004 


02511 4 




207 


000006 


OOOOOO 




208 








209 








210 








211 








212 








213 




000010 




214 




000046 




215 


000046 


01 4222 




216 




0C0Q52 




217 


000052 


04QOCO 




218 




OuOOlO 
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MEMORY MANAGEMENT DEFINITIONS 

K1PAR3= 172346 

KIPAR4= 172350 

K1PAR5» 172352 

KIPAft6= 172354 

K1P'.R7= 172356 



UP 



;CqDE FOR UPWARDS f.iAP IN MEM M^MT PDR'S 
;CCDE FOR READ/WRITE IN MEM MGMT PD/^'S 



; PARITY ACTION ENABLE 
•.PARITY TRAP VECTOR 



;MASK FOR 4K ADDRES§ BAfJK QOUNDRY. 



PARITY MEMORY DEF INIl IONS . 

AE= 1 

PARVEC=1 14 

;* MISCELLANEOUS ASSIGNMENTS 
MASK4K= 17777 

CACHE REGISTER DEFINITIONS. 
IMPCHE= 17-^746 

.SBTTL TRAP CATCHER 

.=0 

;»<ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".+2, HALT" 
;*S£QU£N:e TO CATCH ILLEGAL TkApS AND INTERFUPTS 
I^LOCATION CONTAI.J" TO CATCH IMPROPEi LY LOADED VECTORS 
= 174 
.WORD 
. .JORD 
STARTING ADnn£SS(ES) 



DISPRE' 
SWREG: 
.SBTTL 



;;SOFTWARE DISPLAY REGISTER 
;;SOFTWARE SWITCH REGISTER 



JMP 
JMP 

■JMP 
JMP 
JMP 



@^START 
SELECT 

RESTAR 
HESTOR 
TIMOUT 



, =EKRV£C 

.WORD ERRTRP 

.U'ORD 

.SBTTL ACT11 HOOKS 



;H00KS REQUIRED BY ACT11 
$SVPC=. 
.=46 

se:<dad 

.=52 

.WORD BIT14 
.=$SVi .. 



IJUMP TO STARTING ADDRESS OF PROGR'\M 

; STARTING ADDRESS TO ALLOW THE OPERATOR TO 
iSELcCT VARIOUS PARAMETERS. 

;RESTART ADDRESS, USING PREVIOUS PARAMETERS. 
; RESTORE LOADERS TO END 0'^ MEMORY AND HAl,T. 
;TYPE OUT MEMORY MAP, BYTE BY BYTE. 



;SAVE PC 

;;1)5ET L0C.46 TO ADDRESS OF SENDAD IN .$EOP 



;2)£ET toe. 52 TO BIT14 
; RESTORE PC 



C20MCF0 
C2QMCF . PI 1 



219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

254' 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 
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.«300 

THE FOLLOWING ROUTINES ARE LOCATED IN THE VECTOR AREA (0-1000) SO THAT 
THEY CAN BE PROTECTED BY SELECTING SW05 (SEE DOCUMENT FOR USE OF SW05) . 
THE CODE CAN ALSO BE RUN FROM ANY BANK OF MEMORY, ASSUMING MEMORY 
MANAGEMENT IS DISABLED BY "CONSOLE START", 



000300 


005005 






RESTAR : 


CI 1 


R5 




;CLEAR FLAG TO INDICATE REST^IT. 


000302 


0C0401 








BR 


REST1 




;G0 RESTORE PROGRAM BEFORE RESTARTING. 


000304 


01 0705 






restor; 


MOV 


PC, 


R5 


;PUT DATA INTO FLAG FOR RESTORE. 


000306 


0^ 2706 


001 100 




REST' : 


MOV 


*STACK, 


SP 


;SET UP THE STACK POINTER. 


000312 


0U5767 


001206 






TST 


MEMMAP 




; CHECK IF THE MEMORY HAS BEEN MAPPED. 


00031S 


001002 








BNE 


REST2 




BR IF MEMORY MAPPED. 


000320 


000167 


002330 






JMP 


5TARTA 




GO START 


000324 


005767 


000256 




RfSTa: 


TST 


MMAVA 




CHECK IF MEM MGMT AVAILABLE. 


000330 


001470 








BEO 


10$ 




BR IF NO MEM MGMf. 


000332 


032737 


000001 


1 77572 




BIT 


#BITO, 


i>#£RO 


CHECK IF MEM MGMT ACTIVE. 


000340 


00 1 034 








BNE 


2$ 




BR IF MEM N'GMT ALREADY SET UP. 


000342 


01 2700 


1 72300 






MOV 


#KIPDRO 


,R0 


POINT TO FIRST MEM MGMT DDATA REG. 


000346 


01 2701 


00001 






MOV 


, 


R1 


SET UP COUNTER. 


000352 


01 2720 


077406 




1$: 


MOV 


#077406, (R0)+ 


MAP FIRST 28K 1-F0R-1 . 


000356 


005301 








DEC 


R1 




COUNT REGEGTERS. 


000360 


001374 








BNE 


IS 




BR IF MORE REG. 


000362 


01 2700 


1 72340 






MOV 


#KIPAR0,R0 


POINT TO FIRST MEM MGMT ADDRESS REG. 


000366 


0C5020 








CLR 


(R0) + 




PARO MAPPED INTO BANKO. 


000370 


1 2720 


000200 






MOV 


#200, 


(R0) + 


PARI MAPPED INTO BANK1 . 


000374 


01 2720 


000400 






MOV 


#400, 


(R0) + 


PAR2 MAPPED INTO BANK2. 


000400 


01 2720 


000600 






MOV 


#600, 


(R0) + 


PAR3 MAPPED INTO BANK3. 


000404 


01 2720 


001 000 






MOV 


#1000, 


(R0) + 


PAR4 MAPPED INTO BANK4. 


0004 1 












#1200, 


(R0) + 


PAR5 MAPPED INTO BANKS. 


000414 


01 2720 


001400 






MOV 


#1400, 


(R0) + 


PAR6 MAPPED INTO BANK6. 


000420 


01 2720 


007600 






MOV 


#7600, 


(R0) + 


PAR7 MAPPED INTO BANK37. 


000424 


01 2727 


000001 


177572 




MOV 


#BITO, 


®#SR0 


ENABLE MEM MGMT. 


000432 


005000 






2S: 


CLR 


RO 




INIT TEMP PAR REG. 


000434 


01 6701 


000142 






MOV 


PRGMAP, 


R1 


GET THE PROGRAM MAP...LO 64K. 


000440 


016702 


000140 






MOV 


PRGMAP+2,R2 


...HI 64K. 


000444 


006202 






3S: 


ASR 


R2 




SHIFT THE MAP POINTER... HI 


000446 


006001 








ROR 


R1 




. . .LO. 


000450 


103404 








BCS 


4$ 




BR WHEN FIRST BANK FOUND. 


000452 


062700 


000200 






ADD 


#200, 


RO 


UPDATE TMP PAR TC NEXT BANK, 


000456 


100372 








BPL 


3$ 




BR IF MORE. 


000460 


000000 








HALT 




;FATAL ERROR!!! MAP EMPTY? 


000462 


01 0037 


172340 




4S: 


MOV 


RO, 


©#KIPARO 


;PUT TEMP PAR INTO FIRST PAR. 


000466 


000137 


000472 






UMP 


f#5S 




JUMP INTO PROGRAM IF NOT THERE ALREADY. 


000472 


062700 


000200 




5S: 


ADD 


#200, 


RO 


KEEP UPDATING TEMP PAR REG. 


000476 


006202 








ASR 


R2 




SHIFT POINTER. . .HI 


000500 


006001 








ROR 


R1 




. . . LO 


000502 


103373 








BCC 


5$ 




BR IF TOP BANK NOT YET FOUND. 


000504 


01 0037 


172342 






MOV 


RO, 


##KIPAR1 


■,SET UP SECOND PROGRAM ANK POINTER. 


000510 


000410 








BR 


205 




BR TO RELOCATE SECTION. 


000512 


016700 


000062 




10$: 


MOV 


RELOCF, 


RO 


GET RELOCATION FACTOR. 


000515 


062700 


001 100 






ADD 


#STACK, 


RO 


SET UP STACK POINTER. 


000522 


010006 








MOS/ 


RO, 


SP 


SET STACK TO RELOCATE PROGRAM. 


000524 


062700 


177432 






ADD 


#20$-STACK.RC 


ADJUST RO TO RELOCATED "20$" ADDRESS. 


000530 


0001 1 








JMP 


(RO) 




GO TO "20$" (RELOCATED). 


000532 


022767 


000003 


000042 


20$: 


CMP 


#3, 


PRGMAP 


CHECK IF PROGRAM IS IN BANKS AND 1. 
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275 


000540 


001402 






BEO 


21$ 




;BR IF IN BANKS AND 1 . 


276 


000542 


004767 


016?14 




JSR 


PC, 


RELO 


; RELOCATE THE PROGRAM BACK TO BANKS AND 1. 


277 


000546 


005705 




21$: 


TST 


R5 




;CHECK RESTART/RESTORE FLAG. 


278 


000550 


001006 






BNE 


22$ 




;BR IF RESTORE. 


279 


000552 


005067 


000412 




CLR 


$TIMES 




{CLEAN UP BEFORE STARTING. 


280 


000556 


1C5067 


000320 




CLR8 


STSTNM 






281 


000552 


000167 


00531S 




JMP 


START1 




; RESTART WITH PREVIOUSLY SELECTED PARAMETERS 


282 


000566 


004767 


016476 


22$: 


JSR 


PC, 


RESLDR 


; RESTORE THE LOADERS TO THE "TOP" OF MEMORY. 


283 


000572 


OCOOOO 






HALT 






;HALT AFTER RESTORING THE LOADERS. 


284 


000574 


0C0167 


002054 




JMP 


STARTA 




{CONTINUE WILL RESTART THE PROGRAM. 


285 








;* THE 


FOLLOWING LOCATIONS ARE USED BY THE ABOVE ROUTINE AND MUST BE LOCATED 


286 








BELOW 1000 


TO INSURE 


CORRECT 


OPERATION UNDER THE WIDEST VARIETY OF 


287 








;* CIRCUMSTANCES. 






288 


000600 


000000 




RELOCF: 


.WORD 





;C0NTAINS RELOCATION FACTOR (NO MEM MGMT) 


289 


000602 


000000 


000000 


PRGMAP: 


.WORD 


0,0 


; PROGRAM 


MAP - WHERE THE PROGRAM IS LOCATED 


290 


000606 


000000 




MMAVA: 


.WORD 





;MEm6ry 


MANAGEMENT AVAILABLE FLAG. 
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.SBTTL POWER DOWN AND UP ROUTINES 



291 








292 








293 








294 








295 


000610 


01 2737 


000756 


296 


000616 


01 2737 


000340 


297 


000624 


01 0046 




298 


000625 


01 0146 




299 


000630 


01 0246 




300 


000532 


01 0346 




301 


000634 


01 0446 




302 


000636 


010546 




303 


000640 


01 7746 


000274 


304 


000644 


01 0667 


0001 12 


305 


000650 


01 2737 


000662 


306 


000656 


000000 




307 


000660 


000776 




308 








309 








310 








31 1 


000662 


01 2737 


000756 


312 


000570 


01 6706 


000066 


313 


000674 


005067 


000062 


314 


0C0700 


0052:- 7 


000056 


315 


000704 


001375 




316 


000705 


01 2677 


000226 


317 


000712 


01 2605 




318 


000714 


01 2604 




319 


000716 


01 2603 




320 


000720 


01 2602 




321 


000722 


0'. 2601 




322 


000724 


01 2600 




323 


000726 


01 2737 


000610 


324 


000734 


01 2737 


000340 


325 


000742 


004567 


022544 


326 


000746 


025641 




327 


000750 


012716 




328 


000752 


000300 




329 


000754 


000002 




330 


000756 


000000 




331 


000760 


000776 




332 


000762 


000000 





000024 
000026 



000024 
000026 



. . 4, 4, ^. ^ « 






•POWER 


DOWN ROUTINE 


$PWRDN: 


MOV 


/^SILLUP, ®#PWRVEC 




MOV 


#340,C^*P.'ilRVEC+2 




MOV 


RC,-(SP) 




MOV 


R1 ,~(SP) 




MOV 


R2,-(SP) 




MOV 


R3,-(SP) 




MOV 


R4,-(SP/ 




MOV 


R5,-(SP) 




MOV 


@SWR.-(SP) 




MOV 


SP,$SAVR6 




MOV 


fSPWRUP.^^PWRVEC 




HAL. 






BR 


.-2 








; POWER 


UP ROUTINE 


SPWRUP: 


MOV 


#$ILLUP,®#PWRVEC 




MOV 


$SAVR6,SP 




CLR 


SSAVR6 


1$: 


INC 


$SAV95 




BNE 


1$ ; 




MOV 


(SP)+,@SWR ; 




MOV 


(SP)+,R5 ; 




MC-y 


(SP)+,R4 ; 




MOV 


(SP)+.R3 ; 




MOV 


(SP)+,R2 ; 




MOV 


(SP)+,R1 ; 




MOV 


{SP)+,RO ; 




MOV 


#$PWRDN,§i#PWRVEC 




MOV 


^340,#/yPWRVi:C+2 ; 




JSR 


R5. $P. INT ; 


SPWRMG: 


.WORD 


PWRMSG ; 




MOV 


(PC)+,(SP) ; 


SPWRAD: 


.WORD 


RESTART ■ ; 




RTI 




SILLUP: 


HALT 






BR 


.-2 ; 


SSAVR6: 








FOR FAST UP 
7 

RO ON STACK 
R1 ON STACK 
R2 ON STACK 
R3 ON STACK 
R4 ON STACK 
R5 ON STACK 
@SWR ON STACK 
SP 

UP VECTOR 



; ;SET 
; PRIO; 
; PUSH 
; PUSH 
; PUSH 
;PUSH 
;PUSH 
;PUS!-: 
; PUSH 
;SAVE 
; ;SET 



;SET FOR FAST DOWN 
GET SP 

WAIT LOOP FOR THE TTY 
WAIT FOR THE INC 
OF WORD 

POP STACK INTO ®SWR 

POP STACK INTO R5 

POP STACK INTO R4 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO R1 

POP STACK INTO RO 

;SET UP THE POWER DOWN VECTOR 

PRI0:7 

GO PRINT OUT THE FOLLOWING MESSAGE. 
; POWER FAIL MESSAGE POINTER 
;RESTART AT RESTART 
; RESTART ADDRESS 

;THE POWER UP SEQUENCE WAS STARTED 
; BEFORE THE POWER DOWN WAS COMPLETE 
;PUT THE SP HERE 
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COMMON 


TAGS 










333 






.SBTTL 


COMMQN 


TAGS 








334 


















335 


















336 






;*THIS 


TABLE CONTAINS VARIOUS 


COMMON STORAGE LOCATIONS 


337 






;*USED 


IN THE PROGRAM. 








338 


















339 




001 100 




.=1 100 










340 


001 100 




SCMTAG: 










; START OF QOMMON TAGS 


341 


001 1 00 


000000 




.WORD 











342 


001 1 02 


000 


STSTNM: 


.BYTE 









ICONTAINS THE TEST NUMBER 


343 


001 1 03 


000 


SERF! 3: 


.BYTE 









ICONTAINS ERROR FLAG 


344 


001 104 


000000 


SICNT : 


.WORD 









;CONTAINS SUBTEST ITERATION COUNT 


345 


001 106 


000000 


SLPADR: 


.WORD 









ICONTAINS SCOPE LOOP ADDRESS 


346 


001 1 10 


000000 


SLP£RR: 


.WORD 









ICONTAINS SCOPE RETURN FOR ERRORS 


347 


001 1 12 


ocoooo 


SERTTL: 


.WORD 









;C0NTA1NS TOTAL ERRORS DETECTED 


348 


001 1 14 


coo 


$ items: 


. BYTE 









ICGNTAINS ITEM CONTROL BYTE 


349 


001 1 15 


001 


SERMAX : 


.BYTE 


1 






ICONTAINS MAX. ERRORS PER TEST 


350 


001 1 16 


000000 


SERRPC: 


.WORD 









ICONTAINS PC OF LAST ERROR INSTRUpTIQN 


351 


001 1 20 


000000 


SGDADR: 


.WORD 









ICONTAINS ADDRESS OF 'GQOp' PATA 


352 


001 122 


ocoooo 


SBDADR : 


.WORD 









iCONTAINS ADDRESS OF '^AD' DATA 


353 


001 1 24 


000000 


SGDDAT: 


. WORD 









ICONTAINS 'GOOD' DATA 


354 


001 1 26 


000000 


SBDDAT: 


.WORD 









ICONTAINS 'BAD' DAJA 


355 


001 1 30 


000000 




.WORD 









! RESERVED— NOT TO BE USED 


356 


001 132 


000000 




.WORD 











357 


001 1 34 


000 


sautob: 


.BYTE 









;AUTOMATIC MODE INDICATOR 


358 


001 135 


000 


SINTAG: 


.BYTE 









; INTERRUPT MODE INDICATOR 


359 


001 1 36 


ocoooo 




.WORD 











360 


001 1 40 


177570 


SWR: 


.WORD 


DSWR 






:ADDRESS OF SWITCH REGISTER 


361 


001 142 


17 7570 


DISPLAY 


: .WORD 


DDISP 






;ADORESS OF DISPLAY REGISTER 


362 


001 144 


177560 


$TKS: 


17756C 








;TTY KBD STATUS 


363 


001 146 


177562 


STKS: 


177562 








;TTY KBD BUFFER 


364 


001 1 50 


1 77564 


STPS: 


177564 








:TTY PRINTER STATUS REG. ADDRESS 


365 


001 152 


177566 


STPB: 


177566 








;TTY PRINTER BUFFER REG. ADDRESS 


366 


001 1 54 


000 


SNULL: 


.BYTE 









;CONTAINS NULL CHARACTER FOR FILLS 


367 


001 155 


002 


SFI LLS: 


.BYTE 


2 






;CONTAINS # OF FILLER CHARACTERS REOUIREP 


368 


001 156 


012 


SFILLC: 


.BYTE 


12 






; INSERT FILL CHARS. AFTER A "LINE FEED" 


369 


001 157 


000 


STPFLG: 


. BYTE 









; "TERMINAL AVAILABLE" FLAG ( BI T<07>=0* YES ) 


370 


001 160 


OCOOOO 


STMPO: 


.WORD 









;USER DEFINED 


371 


001 1 62 


OCOOOO 


STMP1 : 


. wor.j 









;USER DEFINED 


372 


001 1 64 


000000 


$TMP2: 


.WORD 









;USER DEFINED 


373 


001 166 


ooooco 


$TMP3: 


.WORD 









;USER DEFII-iED 


374 


001 170 


000000 


STIMES: 











;MAX. NUMBER OF ITERATIONS 


375 


001 1 72 


000000 


SESCAPE 


:0 








; ESCAPE ON ERROR ADDRESS 


376 


001 1 74 


177607 000377 


SBELL: 


. ASCIZ 


<207><3 


77><377> 


;CODE FOR BELL 


377 


001200 


077 


SOUES: 


.ASCII 


/?/ 






;OUESTIQN MARK 


378 


001201 


015 


SCRLF: 


.ASCI I 


<15> 






;CARRIAGE RETURN 


379 


001202 


00001 2 


SLF: 


.ASCIZ 


<12> 






;LINE FEED 


380 
















381 
382 






!sbttl 


APT MAILBOX-ETABLE 






333 
















384 






'. EVEN 












385 


001204 




$MA I L : 






; ; APT 


MAILBOX 


386 


001204 


OCOOOO 


SMSGTY: 


.WORD 


AMSGTY 


; -.MESSAGE TYPE CODE 


387 


001206 


000000 


SFATAL: 


.WORD 


AFATAL 


; ;FATAL ERROR NUMBER 


388 


001210 


000000 


STESTN: 


.WO,.D 


ATESTN 


; ;TEST 


NUMBER 
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APT rv-AlLBOX-ETABLE 




389 


001212 


ccoooo 


SPASS: 


. WORD 


APASS 


; ;PASS COUNT 


390 


00 12 14 


ocoooo 


SCEVCT: 


. WORD 


adevct 


; iDEVICE COUNT 


391 


1216 


CC 0000 


SUNIT : 


.WORD 


AUNIT 


; : I/O UNIT NUMBER 


392 


00 1 220 


000000 


SMSGAD: 


. WORD 


amsgad 


; iMESSAGE ADDRESS 


393 


C01 222 


ocoooo 


Sfv'.SGLG: 


. WORD 


AMSGLG 


; ; MESSAGE LENGTH 


394 


001 224 




SETABLE: 






;APT ENVIRONMENT TABLE 


395 


001224 


000 


$ENV: 


. BYTE 


AENV 


; ; ENVIRONMENT BYTE 


396 


001 223 


000 


SENVM: 


. BYTE 


AENVI^ 


; ENVIRONMENT MODE BITS 


397 


001226 


000000 


SSa'REG: 


. WORD 


ASWREG 


;APT SWITCH REGISTER 


398 


001230 


ocoooo 


$USWR: 


. WORD 


AUSWR 


;USER SWITCHES 


399 


001 232 


000000 


SCPUOP: 


.WORD 


ACPUOP 


;CPU TYPE, OPTIONS 


400 












BITS 15-1 1«CPU TYPE 


401 














1 1/04a01 , 11/05=02,11/20a03,11/40«04.t 1/4S«05 


402 














1 1/70a05,PDO''07,Oa10 


403 












BIT lO^REAL TIME CLOCK 


404 








* 




BIT e^FLOATlNG POINT PROCESSOR 


405 












BIT a^MEMORY MANAGEMENT 


406 


001 234 


000 


SMAMS1 ; 


. BYTE 


AMAMS1 


;HIGH ADDRESS. M.S. BYTE 


407 


00 1 235 


000 


SMTYPI : 


. BYT : 


AMTYP1 


;MEM. ■. i-PE.BLK*! 


408 












MEM. TYPE BYTE -- (HIGH BYTE) 


409 














900 NSEC COPE'001 


410 














300 NSEC BIPOLARaOOa 


4 1 1 














500 NSEC M0S=003 


412 


001 236 


000000 


$MA0R1 : 


.WORD 


AMADRI 


;HIGH ADDRESS. BLK?^1 


413 














MEM. LAST ADDR.=3 BYTES, THIS WORD AND LOW OF "TYPE" 


414 


00 1 240 


000 


SMAMS2: 


. BYTE 


AMAfvlS2 




HIGH ADDRESS, M.S. BYTE 


415 


00124 1 


000 


SMTyP2: 


. BYTE 


AIV1TYP2 




MEM, TYPE, BLK*2 


416 


001 242 


000000 


SMADR2: 


.WORD 


AMADR2 




MEM. LAST ADDRESS. BLK#2 


417 


001 244 


000 


SMAV,53 : 


. BYTE 


AMAMS3 




HIGH ADDRESS. M.S. BYTE 


418 


00 1 245 


000 


$MTYP3: 


. BYTE 


AMTYP3 




MEM. TYPE. BLKf^3 


4 1 9 


00 1 246 


000000 


$MADR3: 


.WORD 


AMADR3 




MEM. LAST ADDRESS, BLK#3 


420 


001 250 


000 


$,MA\iS4 : 


. BYTf-: 


AMAMS4 




HIGH ADDRESS. M.S. BYTE 


421 


001251 


oco 


SMI yP4: 


. B^ |"E 


AIVITYP4 




MEM. TYPE, BLK.-/4 


422 


001 252 


ocoooo 


SMADR4: 


.WORD 


AMADR4 




MEM. LAST ADDRESS. BLK#4 


423 


001 254 


00 ooco 


SVECTl : 


.WORD 


AVECT1 




INTERRUPT VECT0R#1,BUS PRIORITY^I 


424 


001 256 


ocoooo 


$VECT2: 


. WO,:D 


AVECT2 




INTERRUPT VECT0R#2BUS PRIORITY/S'2 


425 


00 1 260 


ooooco 


S9AS£: 


.WORD 


ABASE 




BASE ADDRESS OF EQUIPMENT UNDER TEST 


426 


00 1 252 


CO 0000 


SDEvM: 


.WORD 


ADEVM 




DEVICE MAP 




001 264 


C 00 C 


SCDah : 


.WORD 


ACDW1 




CONTROLLER DESCRIPTION W0RD#1 


428 


001266 


ocoooo 


SCDa2: 


.WORD 


ACDW2 




CONTROLLER DESCRIPTION W0RD#2 


429 


001270 


000000 


SDDv'JO : 


.WORD 


ADDWO 




DEVICE DESCRIPTOR WORD^-O 


430 


001 272 


ooooco 


SDDwl : 


.WORD 


ADDW1 




DEVICE DESCRIPTOR W0RD*1 


431 


001 274 


000000 


SD0W2 : 


.WORD 


ADDW2 




DEVICE DESCRIPTOR WDRD^2 


432 


001 276 


OOOO'.O 


SDDW3 : 


.WORD 


ADDW3 




DEVICE DESCRIPTOR WORD/^3 


433 


0013C0 


ooooco 


SDDW4: 


.WORD 


ADDW4 




DEVICE DESCRIPTOR waRD*4 


434 


001302 


OCOOOO 


$DD.-.'5: 


.WORD 


ADDW5 




DEVICE DESCRIPTOR WCRD#5 


435 


001304 


000000 


SjOa'G : 


.WORD 


ADDW5 




DEVICE DESCRIPTOR W0RD*6 


436 


001 305 


000000 


SDD^V7 : 


.'.IRD 


ADDW7 




DEVICE DESCRIPTOR W0RD*7 


437 


001 310 


000000 


SDD.vC: 


.WORD 


ADDW8 




DEVICE DESCRIPTOR WORD/^B 


438 


001312 


000000 


$00. --9: 


.WORD 


ADDW9 




DEVICE DESCRIPTOR WCRD^9 


439 


001314 


c-^ocoo 


SDDw O: 


.WORD 


ADDW1 




DEVICE DESCRIPTOR WORD/^lO 


440 


001 316 


ocoooo 


SOO'w 1 1 : 


.WORD 


ADDW1 1 




DEVICE DESCRIPTOR W3RD#11 


441 


001320 


ocoooo 


$DD-.'n2: 


.WORD 


ADDW12 




DEVICE DESCRIPTOR W0RD/!'12 


442 


001322 


000000 


SDDW13: 


.WORD 


ADDW13 




D-.VICE DESCRIPTOR WORO^'IS 


443 


001 324 


000000 


SDDW14: 


.WORD 


ADDW14 




'■EVICE DESCRIPTOR WORD/I'IA 


444 


001326 


000000 


$DDW15: 


.WORD 


ADDW15 




DEVICE DESCRIPTOR W0RD#15 



0C1330 
0C0C24 
000200 
000044 
001330 
001330 



CZOMCFO 0-1 24K MEMORY EXERCISER, 
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445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
47 9 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
4 94 
495 
496 
497 
498 
499 
500 
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SETEKD: 
.MEXIT 

-SBTTL APT PARAMETER BLOCK 



SET LOCATIONS 24 AND 4-^ AS REQUIRED FOR APT 



.$X=. 
.=24 

200 
.=44 
$Ar':ID 
. = .$X 



iSAVE CURRENT LOCATION 

;SET POWER FAIL TO POINT TO START OF PROGRAM 
;FOR APT START UP 

;PQINT TO APT INDIRECT ADDRESS PNTR. 
; POINT TO APT HEADER BLOCK 
; RESET LOCATION COUNTER 



SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 



001330 






SAPThD: 








001 330 


ooooco 




SHISIS: 


.WORD 





:;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 


001332 


0012C4 




SMBADR: 


.WORD 


$MAIL 


;;ADDRESS OF APT MAILBOX (BITS 0-15) 


001334 


004540 




STSTM: 


.WORD 


2400. 


; ;RUN TIM OF LONGEST TEST 


001336 


0001 70 




SPASTM: 


.WORD 


120. 


;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 


001 340 


000360 




SUNITM; 


.WORD 


240. 


;;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL 


001342 


00O0L2 






.WORD 


SETE.«10- 


$MAlL/2 ;; LENGTH MAI LBOX-ETABLE{ WORDS) 








.S0TTL 


APT STATISTICS 


TABLE 
















001344 






SASTAT: 








001 344 


17 7777 


000000 




.WORD 


-1 ,0 




001 350 


1 77777 


000000 




.WORD 


-1 ,0 




001354 


1 7777 


000000 




.WORD 


-1 ,0 




001 350 


1 77777 


oooooo 




.WORD 


-1 ,0 




001 :j64 


1 77777 


000000 




.WORD 


-1,0 




001370 


177777 


oooooo 




.WORD 


-1 ,0 




001374 


1 77777 


oooooo 




.WORD 


-1 ,0 




0014 00 


1 77777 


oooooo 




.WORD 


-1 .0 




001 404 


1 77777 


oooooo 




.WORD 


-1 ,0 




0014 10 


1 7 77 77 


oooooo 




. WORD 


~1 .0 




001414 


1 77777 


oooooo 




.WORD 


~1 ,0 




00 1 420 


17 7777 


oooooo 




.WORD 


-1 ,0 




0014 24 


177777 


oooooo 




.WORD 


-1 ,0 




001430 


177777 


OOOuOO 




.WORD 


-1 ,0 




0014 34 


177777 


oooooo 




.WORD 


-1 ,0 




001440 


1 7 7777 


OOOOOO 




.WORD 


-1 ,0 




001444 


1 77777 


oooooo 




-WORD 


-1 ,0 




001 450 


177777 


ooooco 




.WORD 


-1 ,0 




1 4 54 


17 7777 


oooooo 




.WORD 


-1 ,0 




001460 


1 "77 77 


ooooco 




.WORD 


-1,0 




0014c4 


177777 


oooooo 




. WORD 


-1 ,0 




00 1 -3 70 


17 7 7 7 7 


ooooco 




.WORD 


-1 ,0 




0014 74 


17 7 7 77 


ooooco 




.WORD 


-1 ,0 




001500 


17 7777 


ooooco 




.WORD 


-1 ,0 




001 504 


1 7 7777 


oooooo 




.WORD 


-1 ,0 




001510 


1 7 777 7 




SaSTEND 




-1 




001512 


00i3m4 




SAPTR: 


SASTAT 







# 



0-124K MEMORY EXERCISER, 



CZQMCF 


PI 1 1 


4-F EB-7B 


50 1 






502 






503 






504 


001514 


ocooro 


505 


001 51 6 


07 0032 


506 






507 


001520 


000000 


508 


001 522 


000000 


509 


001 524 




510 


001 524 


000000 


51 1 


001 526 


OnOOOO 


512 


001530 




513 


001 530 


OOOOCO 


514 


001 532 


OOOOCO 


515 


001 534 




516 






517 


001 534 


000000 


518 


001 536 


000000 


519 


001 540 




520 


001 540 


000000 


521 


001 542 


000000 


522 


001 544 




523 


001 544 


000000 


524 


001 546 


000000 


525 


001 550 




526 


001 550 


000000 


527 


001552 


ocoooo 


528 


001554 


000000 


529 






530 






531 


001 556 


000 


532 


001557 


000 


533 


001 560 


000 


534 




001562 


535 


001 562 


ocoooo 


536 






537 


001 564 


000000 


538 


001 566 


ooooco 


539 






540 


001570 


000000 


541 


001574 


ocoooo 


542 






543 


001576 


OOOOCO 


544 


001600 


OOOOGO 


545 






546 


001602 


000000 


547 


001 606 


000000 


548 


001510 


000000 


549 


001612 


000004 


550 


001614 


000000 


551 


001616 


ocoooo 


552 


001620 


17 7746 


553 






554 






555 






556 
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*TME FOLLOWING TAGS ARE USER DEFINED 







******** 


« ' F r c-r* 


. WORD 




R E S R V : 


■ WORD 


070032 




WORD 




LDDISP: 


. V IRD 





MEMMA P '• 








.WORD 







• WORD 




T S T M A P ; 








. WORD 






.W R 





SAVTST : 














.WORD 





PMEMAP: 














.WORD 





BITPT : 














.WORD 





TMPPT : 








. WORD 










n/iMO RE: 


• WORD 











FLAG8K ■ 


• gy 





OEFLG: 


. BYTE 







. EVEN 




FSTADR: 


-WORD 





TMPFAD: 


.WORD 





FADMSK: 


.WORD 





FADMAP: 


.WORD 


0,0 


LSTADR: 


.WORD 





TMPLAD: 


.WORD 





LADMSK : 


.WORD 





LACMAP: 


.WORD 


0,0 


BLKMSK : 


.WORD 





.CONST : 


.WORD 





WWP : 


-.WORD 


4 


TEMP: 


.WORD 





CASFLG: 


.WORD 





CAGREG: 


.WOPO 


177746 



;VIRTUAL PC LOCATION FOR ERROR TYPEOUT ROUTINE (SERTYP). 

;CGRE PARITY REG BITS RESERVED FOR FUTURE USE. 

;NOTE: FOR MSI 1 MEr.'ORY WITH PARITY, CHANGE TO 077772. 

;LAST CONTIGUOUS MEfv-QRY ADDRESS (+2) 

•.CONTAINS DISPLAY REGISTER IMAGE 

•.MEMORY MAP - EACH BIT CORRESPONDS TO 4K 

; FIRST WORD CONTAINS LOW (0-64K) MAP 

;SECOND WORD CONTAINS HIGH (64-12BK) MAP 

•.TEST MAP - WHICH BANKS ARE SELECTED FOR TEST. 

; FIRST WORD CONTAINS LOW (0-64K) MAP 

iSEvOND .'JORD CONTAINS HIGH (64-128K) MAP 

;S'.VED TEST MAP - USED DURING FIRST PASS TO ONLY 

; TEST EACH BANK ONCE. 

;FIRST WORD CONTAINS LOW (0-64K) MAP 

;SECONO WORD CONTAINS HIGH (64-128K) MAP 

; PARITY MAP - WHICH BANKS HAVE MEMORY PARITY 

•.FIRST WORD CONTAINS LOW (0-64K) MAP 

;SECOND WORD CONTAINS HIGH (64-128K) MAP 

IPOINTER TO CURRENT 4K BANK OF MEMORY 

•.FIRST WORD CONTAINS LOW (0-64K) MAP 

;SECOND WORD CONTAINS HIGH (64-128K) MAP 

; TEMPORARY POINTER FOR 2ND 4K BANK OF MEMORY 

; FIRST WORD CONTAINS LOW (0-64K) MAP 

•.SECOND WORD CONTAINS HIGH (64-128K) MAP 

;LCOP ADDRESS FOR MULTIPLE BLOCK TESTING. 

;SET UP BY "INITMM" AND "INITDN" ROUTINEES. 

;USED EY "MMUP" AND "MMDOWN" ROUTINES. 

;OPERATOR SELECTED PARAMETERS FLAG. (SA=204) 

;BK BLOCK INDICATOR. USED IN "INITMM" AND "MMUP" . 

;ODD/EVEN FLAG USED IN PARITY MEMORY BYTE TEST. 

;FIRST VIRTUAL ADDRESS TO BE TESTED. 
;FIRST ADDRESS IS USER SELECTABLE, 
;ADJUSTED FIRST ADDPESS. 

;aiT MASK TO ALLOW DOWNWARD ADDRESSING TESTS 
; TO BR:.AK to "MMDOWN" TO FIND FIRST ADDRESS. 
;MAP OF BANK IN WHICH FIR^T ADDRESS IS LOCATED. 
;LAST VIRTUAL ADDRESS (+2) TO BE TESTED. 
•.LAST ADDRESS IS USER SELECTABLE. 
;ADUUSTED LAST ADDRESS. 

;5IT MASK TO ALLOW UPWARD ADDRESSING TESTS 
; TO BREAK TO "MMUP" TO FIND LAST ADDRESS. 
•.MAP OF BANK IN WHICH LAST ADDRESS IS LOCATED. 
;BLOCK MASK, DETERMINES THE BLOCK SIZE. 
-.USER SELECTABLE CONSTANT DATA. 
; WRITE WRONG PARITY COMMAND 
; TEMPORARY STORAGE 
;CACHE PRESENT FLAG 
;CACHE CONTROL REGISTER 



RELATIVE ADDRESSING TABLE. 

THE FOLLOWING LOCATIONS ARE MODIFIED AT RELOCATION TIME TO ALLOW 
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C20MCF 


P1 1 


4-FEB-78 


08: 19 




;PT STATISTICS TABLE 




557 










:* RELATIVE ADDRESSING TO GET THE RELOCATED VALUE OF THE ARGUEMEMT TAGS 


558 
















559 


001622 








RADTAB: 






560 


001622 


001 100 






.stack: 


STACK 


;STACK POINTER INITIAL ADDRESS. 


561 


001624 


001516 






.RESRV: 


RESRVD 


;PARITY REGISTER RESERVED BIT MASK ADDRESS. 


562 


001626 


002076 






.MPRO : 


MPRO ■ 


;MEMORY PARITY REGISTER TABLE ADDRESS. 


563 


CO 1630 


0C2276 






.MPRX : 


MPRX 


;MEr/ORY PARITY REGISTER EXIST TABLE ADDRESS. 


564 


001632 


01 2052 






.PBTRP: 


PBTRP 


■.PARITY BYTE TEST TRAP ROUTINE ADDRESS. 


565 


001634 


002050 






. WPPAT : 


MPPATS 


;r/,EMORY PARITY PATTERN TABLE ADDRESS. 


566 


001 636 


01 7430 






.PESRV: 


PESRV 


IMEMORY PARITY ERROR TRAP ROUTINE ADDRESS. 


567 


001 640 


002340 






. ERRTB: 


SERRTB 


;ERROR TYPEOUT TABLE PONTER. 


568 


001642 


00001 






.EIGHT : 


8. 


;DECIMAL TYPE ROUTINE COUNT DESIGNATOR. 


569 


001644 


01 4004 






.TST32: 


TST32 


; SCOPE ABORT ADR FOR WHEN NO MEM AVA FOR TEST. 


570 
















571 










;» DATA CONTAINERS FOR ERROR PRINTOUT. 


572 
















573 


001 646 


001 1 16 


001 1 20 


001 1 24 


DTI : 


SERRPC . SGDADR 


SGDDAT, SBDDAT, 


574 


001654 


0C1 126 


000000 










575 


0016G0 


001514 


001 1 16 


001 1 20 


DT2: 


SVER.^C,$ERRPC 


SGDADR , SGu DAT .SBDDAT. 


576 


001666 


001 124 


001 126 


000000 








577 


001 674 


00 1514 


001 1 16 


001 1 20 


DT12: 


$VERPC,$ERRPC 


SGDADR, SGDDAT, 


578 


001 702 


001124 


000000 










579 


001 706 


00 1 51 4 


001 1 1 6 


001 160 


DT14: 


SVERPC .SERRPC 


STMPO , SGDADR ,0 


580 


001 7 1 4 


001 120 


000000 










581 


001720 


001514 


001 1 16 


001 1 20 


DT15: 


SVERPC.SERRPC 


SGDADR , STMPO , SGDDAT , SBDDAT , 


582 


001 726 


001 160 


001 124 


001 1 26 








583 


001 734 


OCOOOO 












584 


001 736 


0C1514 


001 1 16 


001 1 60 


DT21 : 


SVERPC, SERRPC 


STMPO , SGDADR , SGDDAT .SBDDAT , 


585 


001 744 


001 120 


001 124 


001 1 26 








586 


001 752 


OOOOCO 












587 


001 754 


001514 


001 1 16 


001 1 20 


DT23: 


SVERPC, SERRPC 


SuDADR , SBDADR , SGDDAT , SBDDAT ,0 


588 


001 762 


001 1 22 


001 1 24 


0011 26 








589 


001770 


OOOOCO 












590 


001772 


001514 


001 1 16 


001 1 22 


DT24 : 


SVERPC, SERRPC 


SBDADR.O 


591 


002000 


OCOOOO 












592 


002002 


001514 


001 1 16 


001 1 22 


DT25: 


$VE,<PC, SERRPC 


SBDADR, STMPO, STMPI ,0 


593 


002010 


001 160 


001 162 


000000 








594 


0020 1 6 


00 1 51 4 


001 1 1 6 


001 160 


DT26: 


SVERPC, SERRPC 


STMPO .STMPI ,0 


595 


002024 


001 102 


000000 










596 


002030 


001 160 


001 162 


001 1 20 


DT30: 


STMPO.STMPI , SGDADR, SBDDAT ,0 


597 


002036 


001 126 


000000 










598 


002042 


001 166 


000000 




DT31 : 


$TMP3 ,0 




599 


002046 


1 77777 








.WORD -1 


;TABLE TERMINATOR. 


600 
















601 










. SBTT L 


MEMORY PARITY 


PATTERNS TABLE 


602 
















603 










;iHE FOLLOWING ARE THE PARITY PATTERNS EXERCISED THRUOUT MEMORY 


604 
















605 
















606 


002050 


12 5325 






MPPATS: 


125325 


;EVEN.ODD 


607 


002052 


1 26':>2 








152652 


; ODD, EVEN 


608 


002054 


052452 








052452 


; EVEN. ODD 


609 


002056 


0251 25 








025125 


•.ODD. EVEN 


610 


002060 


1 02070 








1 02070 


; EVEN. EVEN 


61 1 


002062 


072527 








072527 


; ODD. ODD 


612 


002064 


1 77777 








1 77777 


; EVEN, EVEN 
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SEO 0096 



613 
014 
615 
616 
617 
616 
619 
620 
621 
622 
^23 
624 
625 
626 
627 
6g8 
629 
630 
631 
632 
633 
634 
635 
636 
637 
639 
639 
640 
641 
642 
64p 
644 
645 
646 
64? 
§48 
649 
650 
S51 
652 
653 
554 
655 
656 
657 
659 
659 
66p 
661 
^62 
663 
664 
665 
666 
667 



002066 
002070 
002072 



107030 
152525 
000000 



002074 000000 



002076 
002100 
002108 
002104 
002106 
0021 10 
0021 12 
0021 14 
0021 16 
002120 
0021^2 
002124 
002126 
002130 
002132 
002134 
002136 
002140 
002142 
002144 
002146 
002150 
002152 
00215-^ 
002156 
002160 
002162 
002164 
002166 
0P2170 
00217? 
002174 
002176 
002200 
OO2202 
002204 
002206 



172101 

pooooo 

000000 
000000 
172103 

pooooo 

000000 
000000 
172105 
000000 
000000 
C.OOQO 
172107 
000000 
000000 
000000 
1721 11 
OOOODO 
000000 
000000 
1721 13 
000000 
000000 
000000 
172115 
000000 
000000 
000000 
1721 17 

pooooo 
ooocco 

000000 
172121 
000000 
OODOOQ 
000000 
172123 



107030 jODD.OpD 
152525 lODD.EVEN 

Q ; EXTRA PATTERN HOLDER FOR 

! FUTURE USE 

IPEND: ;TA8LE TERMINATOR 

SBTTU MEMORY PARITY REGISTER ADDRESS TABLE 

////////////////////////////////////////////////////////////////////// 

* THE FOLLOWING REPRESENTS THE MEMORY PARITY REGISTER ADDRESS TABLE 
» FROM WHICH PARITY MEI^'ORV IS ADDRESSED S CONTROLLED: 

* THE LEAST SIGNIFICANT BIT IN THE DEVICE ADDRESS IS SET TO A ONE (1) 

* IF THE CQNTROL JS POUND NOT TO BE PRESENT. THE MEMORY PRESENT UNDER 

* THE GON-^IpL OF E^CH CONTROLLER IS REPRESENTED BY TWO (2) WORDS FOLLOWING 

* THE DEVICE ADDRESS, EACH BIT REPRESENTING A 4K BLOCK. I.E. 

* FIRST WORD BITO « - 4K, BIT1 » 4 - 8K,... BIT15 « 60 - 64K 

* SECONC WORP BITp « 64 68K,... BIT14 a 120 - 124K. 

////////////////////////////////////////////////////////////////////// 



MPRO: 



172100 






172102 






172110 +1 



6 



172112? +1 







172114 t1 




17ailM 




172129 +1 




PARITY STATUS REGISTER 
CONTROL MAP (LOW 64K) 
CONTROL MAP (HIGH 64K) 
MASK FOR MOS, CORE, MSI 1-K 
PARITY STATUS REGISTER 
CONTROL MAP (LOW 64K) 
CONTROL MAP (HIGH 64K) 
MASK FOR MOS, CORE, MSI 1-K 
PARITY STATUS REGISTER 
CONTROL MAP (LOW 64K) 
CONTROL MAP (HIGH 64K) 
MASK FOR MOS, CORE, MS11-K 
PARITY STATUS REGISTER 
CONTROL MAP (LOW 64K) 
CONTROL MAP (HIGH 64K) 
MASK FOR MOS, CORE, MSI 1-K 
PARITY STAUS REGISTER 
CONTROL MAP ( LOW 64K ) 
CONTROL MAP (HIGH 64K) 
MASK FOR MOS, CORE. MSI 1-K 
PARITY STATUS REGISTER 
CONTROL MAP (LOW 64K) 
CONTROL MAP (HIGH 64K) 
MASK FOR MOS, CORE, MSI 1-K 
PARITY STATUS REGISTER 
CONTROL MAP (LOW 64K) 
CONTROL MAP (HIGH 64K) 
MASK FOR MOS, CORE, MS1 1-K 
PARITY STATUS REGISTER 
CONTROL MAP (LOW 64K) 
CONTROL MAP (HIGH 64K) 
MASK FOR MOS, CORE, MSI 1-K 
PARITY STATUS REGISTER 
CONTROL MAP (LOW 64K) 
CONTROL MAP (HIGH 64K) 
MASK FOR MOS.CORE.MSI 1-K 
PARITY STATUS REGISTER 
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CZOMCF 


pi 1 


4-'FE8-78 


669 


002210 


oc-oooo 


670 


002212 


ooooop 


671 


002214 


OOOOCO 


672 


002216 


172ir5 


^73 


002220 


000000 


674 


002222 


000000 


675 


002224 


000000 


676 


002226 


172127 


677 


002230 


000000 


678 


002232 


000000 


679 


002234 


oroooo 


680 


Qp2236 


17 2131 


681 


002240 


000000 


6B2 


002;242 


OCOOOO 


683 


002244 


OCOOOO 


684 


005246 


172133 


685 


002250 


OGOOOO 


686 


002252 


OCOOOO 


697 


002254 


Of 0000 


688 


PP2256 


17?135 


689 


002260 


000000 


690 


0p2262 


000000 


691 


PP2254 


OOOOCO 


692 


002266 


172137 


693 


6p2270 


ooooop 


694 


002272 


OCOOOO 


^95 


002274 


pooooo 


696 




697 


002276 


000021 


698 






699 
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; CONTROL MAP (LOW 64K) 
iCONTROL MAP (HIGH 64K) 
iMASK FOR MOS, CORE, MSI 1-K 
PARITY STATUS REGISTER 
; CONTROL MAP (LOW 64K) 
;CONTROL MAP (HIGH 64K) 
;MASK FOR MOS , CORE , MS1 1 -K 
PARITY STATUS REGISTER 
iCONTROL MAP (LOW 64K) 
;CONTROL MAP (HIGH 64K) 
;MASK FOR MOS , CORE , MS1 1 -K 
PARITY STATUS REGISTER 
ICONTROL MAP (LOW 64K) 
;CONTRQL MAP (HIGH e4K) 
;MASK FOR MOS , CORE , MS 1 1 -K 
PARITY STATUS REGISTER 
;CpNTROL MAP (LOW 64K) 
;CONTROL MAP (HIGH 64K) 
;MASK FOR MOS , CORE , MS1 1 -K 
PARITY STATUS REGISTER 
; CONTROL MAP (LOW 64K) 
iCONTROL MAP (HIGH 54K) 
I MASK FOR MOS, CORE, MSI 1-K 
PARITY STATUS REGISTER 
iCONTROL MAP (LOW 64K) 
iCONTROL MAP (HIGH 64K) 
iMASK FOR MOS, CORE, MSI 1-K 
IS THE ^ND OF THE TABLE ! 

.BLKW 17, {TABLE TO HOLD JUST PARITY STATUS REGISTERS THAT EXIST. 

! (THE EXTRA WORD IS FOR A TERMINATOR.) 



MPRIO: 172124 fi 



*!126 -t-l 






MPR12: 172130 +1 





172132 +1 







172134 +1 







172136 ■♦I 



P 



;THIS 
MPRX: 



# 



CZOMCFO 0-124K MEMORY EXERCISER, 
C20MCF.P11 14-FEB-78 08:19 



700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 



002340 

002340 
002342 
002344 
002346 

002350 
002352 
002354 
002356 

002360 
002362 
002364 
002366 

002370 
002372 
002374 
002376 

002400 
002402 
002404 
002406 

002410 
002412 
002414 
002416 

002420 
002422 
002424 
002426 

002430 
002432 
002434 
002436 



027010 
030367 
001646 
030734 

027044 
030406 
0C1660 
030740 

027044 
030406 
00 1660 
030745 

027100 
030406 
001660 
030740 

027136 
030406 
001660 
030740 

02 71 74 
030406 
0016' 
030740 

027240 
030406 
001660 
030740 

027301 
030406 
001660 
030740 
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ERROR POINTER TABLE 

.SBTTL ERROR POINTER TABLE 

i'THIS TABLE CONTAINS THE INFORr.'AT ION FOR EACH ERROR THAT CAN OCCUR. 
►THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
LOCATION SITEMB. THIS Nua^BER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
►NOTEl: IF SITEMB IS THE ONLY PERTINENT DATA IS (SERRPC). 

'N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLl,QWS: 



EM 



SERRTB: 
;* ITEM 



DM1 
DH1 
DTI 
0F1 

ITEivl 2 
DM2 
DH2 
DT2 
DF2 

ITEM 3 
DM2 
DH2 
DT2 
DF3 

ITEM 4 
DM4 
DH2 
DT2 
DF2 

ITEM 5 
DM5 
DH2 
DT2 
DF2 

ITEM 6 
DM6 
DH2 
DT2 
DF2 

ITEM 7 
DM7 
Dl-2 
DT2 
DF2 

'TEM 10 
DM1 
DH2 
DT2 
DF2 

ITEM 11 



POINTS TO THE ERROR MESSAGE 
POINTS TO THE DATA HEADER 
POINTS TO THE DATA 
POINTS TO THE DATA FORMAT 



PARITY REGISTER DATA ERROR. 

PC,REG.S/B,WAS 

SERRPC , iGDADR . SGDDAT , SBDDAT 

16,18,16,16 

ADDRESS TEST ERROR( TST1 -5) . 

V/PC.P/PC,MA,S/B,WAS 

SVERPC . SERRPC. SGDADR , SGDDAT , SBDDAT 

16,18,18,16,16 

ADDRESS TEST ERROR { TST 1 -5 ) . 

V/PC.P/PC,MA,S/B,WAS 

SVERPC, SERRPC. SGDADR, SGDDAT, SBDDAT 

16,18,18,8,8 

CONSTANT DAT* ERROR ( TST6-1 ) . 

V/PC,P/PC,MA,S/B,WAS 

SVERPC , SERRPC , SGDADR , SGDDAT . SBDDAT 

16,18,18,16,16 

ROTATING BIT ERROR { TST 1 1 -1 2 ) . 

V/PC,P/PC,MA,S/B,WAS 

SVERPC, SERRPC, SGDADR .SGDDAT, SBDDAT 

16,18,18,16,16 

MOS REFRESH TEST ERROR (TST30-31). 

V/PC,P/PC,MA,S/B,WAS 

SVERPC .SERRPC , SGDADR , SGDDAT , SBDDAT 

16,18,18,16, 16 

3 XOR 9 PATTERN ERROR ( TST1 3-1 6 ) . 

V/PC , P/PC,MA.S/B,WAS 

SVERPC .SERRPC, SGDADR .SGDDAT, SBDDAT 

16,18,18,16,16 

MARCHING 1'S AND O'S ERROR ( TST27 ) . 
V/PC , P/PC ,MA, S/B, WAS 
SVwRPC .SERRPC , SGDADR , SGDDAT , SBDDAT 
1 " , 18, 18, 16, 16 



0-124K MEMORY EXERCISER, 1 6K VER 



C20MCF 


P1 1 


4-F EB-78 08: 19 


ERROR POINTED 


756 


002440 


027345 


DM1 1 


757 


002442 


030406 


DH2 


758 


002444 


001660 


DT2 


759 


002446 


030745 


DF3 


760 






;* ITEM 12 


761 


0C2450 


02741 1 


DM12 


762 


002452 


030433 


DH1 2 


763 


002454 


001674 


DT12 


764 


002456 


030745 


DF3 


755 






;* ITEM 13 


766 


002460 


027465 


DM1 3 


767 


002462 


030433 


DH^ 


768 


002464 


00 1674 


DT12 


769 


002466 


030745 


DF3 


770 






;* ITEM 14 


771 


002470 


027555 


DM14 


772 


002472 


030454 


DH14 


773 


002474 


001706 


DT'4 


774 


002476 


030752 


DF14 


775 






;* ITEM 15 


776 


002500 


02 7010 


DM1 


777 


002502 


030475 


DH15 


778 


002504 


001720 


DTI 5 


779 


002506 


0307-2 


DF14 


780 






;* ITEM 16 


781 


002510 


027654 


DM16 


782 


002512 


030454 


DH14 


783 


00251 4 


001706 


D. .4 


784 


002516 


030752 


DF14 


785 






;* ITEM 17 


786 


002520 


O: 7733 


DM17 


787 








788 


002522 


030406 


DH2 


789 


002524 


001660 


DT2 


790 


002526 


030745 


DF3 


791 






; * ITEM 20 


792 


002530 


030031 


DM20 


793 


002532 


030406 


DH2 


794 


002534 


001660 


DT2 


795 


002536 


030740 


DF2 


796 






;« ITEM 21 


797 


002540 


030063 


DM21 


798 


002542 


030530 


DH21 


799 


002544 


001736 


DT21 


800 


002546 


020760 


DF21 


801 






ITEM 22 


802 






;* ITEM 23 


803 


002550 


03 0132 


DM23 


804 


002552 


030561 


DH23 


805 


002554 


Oul754 


DT23 


806 


002556 


030752 


DF14 


807 






; » ITEM 24 


808 


002560 


0301 77 


DM24 


809 


002562 


C3 0621 


DH24 


810 


002564 


001772 


DT24 


81 1 


002566 


030752 


DF14 
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PARITY MEMORY ADDRESS ERROR ( TST 1 7 ) . 

V/PC, P/PC, MA, S/B. WAS 

SVERPC, SERRPC, SGDADR, SGDDAT, SBDDAT 



DATIP WITH WRONG PARITY DIDN'T TRAP(TST17). 

V/PC, P/PC. MA, S/B 

SVERPC, SERRPC. SGDADR , SGDDAT 



16, 



. 18 



WRONG PARITY TRAPED, BUT NO REGISTER SHOWS ERROR FLAG. 

V/PC, P/PC, MA, S/B 

SVERPC .SERRPC , SGDADR , SGDDAT 

16,18, 18,8 

PARITY REGISTER NOT MAPPED AS CONTROLLING THIS ADDRESS ( TST1 7 ) . 

V/PC , P/PC , REG, MA 

SVERPC , SERRPC, STMPO, SGDADR 

16,18,18,18 

PARITY REGISTER DATA ERROR. 

V/ PC , P/ PC , MAUT , REG , S/B , WAS 

SVERPC .SERRPC , SGDADR , STMPO , SGDDAT . SBDDAT 

16,18,18,18, 16, 16 

MORE THAN ONE REGISTER INDICATED PARITY ERROR. 

V/PC, P/PC, REG, MA 

SVERPC , SERRPC. STMPO, SGDADR 

16,18,18,18 

DATA SHOULDN'T HAVE CHANGED WHEN PARITY ERROR 

TRAPP£D( TST21 ) . 
V/PC, P/PC, MA, S/B, WAS 
SVtR PC, SERRPC. SGDADR, SGDDAT, SBDDAT 
1o, 18, 18,8,8 

RArJDO.M DATA ERROR ( TST20 ) . 

V/PC , P/PC, MA, S/B, WAS 

SVERPC, SERRPC. SGDADR, SGDDAT, SBDDAT 

16,18.18,16,16 

INSTRUCTION EXICUTICN ERROR ( TST2 1 -26 ) . 
V/PC. P/PC, I UT. MA, S/B, WAS 

SVERPC , SERRPC . STMPO , SGDADR , SGDDAT , SBDDAT 
16,18,16,18,16,16 

NOT USED 

PROGRAM CODE CHANGED WHEN RELOCATED. 

V/PC . P/PC , SRC MA.DST MA, S/B. WAS 

SVER PC, SERRPC , SGDADR , SBDADR , SGDDAT , SBDDAT 

16,18,18,18,16,16 

TRAPPED, BUT NO REGISTER HAD ERROR BIT SET. 

V/PC , P/PC , TRP/PC 
SVERPC , SERRPc', SBDADR 
16,18,18 
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81 2 












81 3 


002570 


C30253 






; TK AHHtu TO 1 1 '» . 




002572 


030642 






• U/D/^ 0/0** TDD/or DBfS UJil? 


815 


002574 


0020r 2 






, SVCKrW t atKKrw , 9 QUA UK i9llYlrU,9ililri 




002576 


030752 




DF14 




81 7 






• * 


ITEM 26 




818 


002600 


030273 




DM26 


JFAILED TO TRAP. 


813 


002602 


030673 






;V/PC,P/PC,REO,WAS 


820 


002604 


0C2018 




DT26 


;$VERPC,$ERRPC,STMP0,STMP1 


821 


002506 


030740 




DF2 


516,18,18,16 


822 








.•'EM 27 




823 


002610 


030313 




DM27 


; (ACTION ENABLE WASN'T SET) . 


824 


002612 


030673 




DH26 


;V/PC,P/PC,REG,WAS 
!SV-RPC,$ERRPC,STMPO,SBDDAT 


825 


002fil4 


002016 




DT28 


826 


00261S 


030740 




DF2 


; 1 C , 1 a , 1 8 , 1 6 


827 








ITEM 30 




828 


002620 


OCOOOO 







jNQ MESSAGE. 


829 


002622 


030715 




DH30 


;REG,WAS ,MA,WAS 


830 


002624 


002030 




DT30 


;STMP0,STMP1 ,$GDADR,SBDDAT 


831 


002626 


030766 




DF30 


;18,16,13,8 


832 








ITEM 31 




833 


002630 


030347 




DM31 


{TRAPPED TO 4 


834 


002632 


000000 







;N0 HEADER 


835 


002634 


002042 




DT31 


;STMP3 


836 


002536 


030766 




DF30 


;18 
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837 .SBTTL START! SETUP AND MAP MEMORY 

;/*\:/*\:/*\:/*\:/*\:/*\:/*\:/*\!/*\:/*\:/*\:/*\:/*\:/*\:/*\:/*\!/*\:/*\: 
;* THIS IS THE NORMAL C^A » 200) BEGINNING OF THE PROGRAM. 

;* NOTE: THIS CODE IS NOT POSITION INDEPENDENT. 





;/:\'/ 


\*/:\*/ 


\*/:\*/ 




\*/:\*/: 


\*/:\*7:\*/:\*/:\*/:\*/:\*/:\*/:\* 


844 


002640 


105067 


176712 




START: 


CLRB 


SELFLG 


;CLEAR SELECT PARAMETER FLAG. 


845 


002644 


000403 








BR 


STARTA 


;G0 DO SETUP AND MEMORY MAP. 


846 


002646 


112767 


177777 


176702 


SELECT: 


MOVB 


*-1, SELFLG 


;SET THE SELECT PARAMETERS FLAG. 


847 


002554 








starta: 








848 










•SBTTL 


INITIALIZE THE COMMON TAGS 


849 










; '.CLEAR 


THE COMMON TAGS (SCMTAG) 


AREA 


850 


002654 


01 2706 


001 1C J 






MOV 


Ai$CMTAG,R6 


!! FIRST LOCATION TO BE CLEARED 


851 


002660 


005026 








CLR 


(R6) + 


JJCLEAR MEMORY LOCATION 


852 


002662 


022706 


001 140 






CMP 


drSWR.RB jjDONE? 




853 


002666 


001374 








BNE 


.-6 


; ! LOOP BACK IF NO 


854 


002670 


01 2706 


001 100 






MOV 


#STACK,SP 


;;SETUP THE STACK POINTER 


855 










; ;INITIALIZC 


A FEW VECTORS 




856 


002674 


012737 


000610 


000024 




MOV 


*$PWRDN,©#PWRVEC 


; ; POWER FAILURE ^'ECTOR 


857 


002702 


012737 


000340 


000026 




MOV 


#340,®(5'PWRVEC+2 


; ; LEVEL 7 


858 


002710 


016767 


01 1242 


011232 




MOV 


SENDCT.SEOPCT 


SETUP END-OF-PROGRAM COUNTER 


859 










; [SIZE 


FOR A 


HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 


860 










EQUAL 


TO A 


"-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 


861 


002716 


013746 


000004 






MOV 


©#ERRVEC,-(SP) 


; ;SAVE ERROR VECTOR 


862 


002722 


01 2737 


002756 


000004 




MOV 


#64$,@:#ERRVEC 


; ;SET UP ERROR VECTOR 


863 


002730 


01 2767 


177570 


17t^02 




MOV 


#DSWR,SWR 


SETUP FOR A HARDWARE SWICH REGISTER 


864 


002736 


012767 


177570 


176176 




MOV 


#DDISP, DISPLAY 


;;AND A HARDWARE DISPLAY REGISTER 


865 


002744 


022777 


177777 


176166 




CMP 


#-1 ,®SWR 


;;TRY TO REFERENCE HARDWARE SWR 


866 


002752 


001012 








BNE 


66$ 


;;BRANCH IF NO TIMEOUT TRAP OCCURRED 


867 
















; ;AND THE HARDWARE SWR IS NOT « -1 


868 


002754 


0004C3 








BR 


65$ 


: ! BRANCH IF NO TIMEOUT 


869 


002756 


01 2716 


002764 




64$: 


MOV 


*65$, (SP) 


; ;SET UP FOR TRAP RETURN 


870 


002762 


000002 








RTI 






871 


002764 


01 2767 


000176 


176146 


65$: 


MOV 


ASWREG.SWR 


POINT TO SOFTWARE SWR 


872 


002772 


01 2767 


000174 


176142 




MOV 


^DISPREG, DISPLAY 




873 


003000 


01 2637 


000004 




66$: 


MOV 


(SP) + ,Si>fi'tRRVEC 


; JRESTORE ERROR VECTOR 


874 
875 


003004 


005057 


176202 






CLR 




; ; CLEAR PASS COUNT 


876 


003010 


132767 


000200 


176207 




BITB 


#APTSI2E,SENVM 


; JTEST USER SIZE UNDER APT 


877 


003016 


001403 








BEO 


67$ 


;;YES,USE NON-APT SWITCH 


878 


003020 


012767 


001226 


1761 12 




MOV 


ff$SWREG,5WR 


; ;NO,USE APT SWITCH REGISTER 


879 


003026 








67$: 








880 


003026 


ooso-".? 


176470 






CLR 


LDDISP 


•.CLEAR DISPLAY REGISTER STORAGE LOCN 


881 


003032 


005077 


176104 






CLR 


^DISPLAY 


iCLEAR DISPLAY REGISTER 


882 










.SBTTL 


TYPE 


PROGRAM NAME 




883 










: iTYPE 


THE NAME OF THE PROGRAM IF FIRST PASS 


884 


003035 


005227 


177777 






i;.- 


#-1 


; ;FIRST TIME? 


885 


003042 


001040 




0d0042 




BNE 


68$ 


; [BRANCH IF NO 


886 


003044 


022737 


014222 




CMP 


#$ENDAD,®#42 


; ;ACT-1 1? 


887 


003052 


0''^1434 








BEO 


68$ 


; [BRANCH IF YES 


868 


003054 


004567 


020432 






USR 


R5, $PRINT 


[GO PRINT OUT THE FOLLOWING MESSAGE. 


889 


003060 


003132 








.WORC 


69$ 


[ADDRESS OF MESSAGE TO BE TYPED 


890 










.SBTTL 


GET VALUE FOR SOFTW/.RE SWITCH REGISTER 


891 


003062 


005737 


000042 






TST 


#4*42 


[ [ARE WE RUNNING UNDER XXDP/ACT? 


892 


003066 


001015 








BNE 


70$ 


[ [BRANCH IF YES 



# 



0-124K MEMORy EXERCISER, 1 6K VER 
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C2QMCF 


PI 1 1 


4-FEB-78 


08:19 


GET 


VALUE FCjh 


SOFTWARE SWITCH RE 


3ISTER 


893 


003070 


126727 


176130 


000001 




CMPB 


SENV, #1 


;ARE WE RUNNING UNDER APT? 


894 


003076 


00141 1 








BEQ 


70S 


; BRANCH IF YES 


895 


003100 


026727 


176034 


0001 76 




CMP 


SWR,*SWREG 


; SOFTWARE SWITCH REG SELECTED? 


896 


0031 06 


0C1010 








BNE 


71$ 


; BRANCH IF NO 


897 












THE NEXT 


TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE SGTSWR ROUTINE 


898 












U/IHTOUT U 


SING A "TRAD" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 


899 


0031 1 


01 3746 


177776 






MOV 


©/S'PSW. -{SP) 


PUT THE PROCESSOR STATUS ON THE STACK 


900 


0031 14 


004767 


017315 






USR 


PC, SGTSWR 


GO TO THE SUBROUTINE 


901 


0031 20 


000403 








BR 


71$ 




902 


0031 22 


1 1 2767 


000001 


176004 70$ 


MOVB 


#1 .SAUTOB 


;SET AUTO-MODE INDICATOR 


903 


003130 






71$ 








904 


0031 30 


000405 








BR 


68$ 


:GET OVER THE ASCIZ 












;;69$: .ASCIZ <CRLF> ' CZQMCFO ' <CRLF> 


906 


0031 44 






68J 








907 


003144 


01 0700 








MOV 


PC, RO 


GET CURRENT PROGRAM COUNTER. 


908 


0031 46 


0227C0 


003146 






CMP 


tt . , PO 


CHECK IF THE PROGRAM IS RELOCATED. 


909 


003152. 


001402 








BEO 


10$ 


BR IF PROGPAM NOT RELOCATED. 


910 


003154 


000167 


175120 






UIV"' 


RESTAR 


GO TRY TO PELOCTED BEFORE CONTINUING. 


91 1 


003160 


01 2767 


000003 


175414 10$ 


MOV 


#3, PRGMAP 


INITIALIZE PROGRAM MAP LO 64K. 


912 


003166 


005067 


175412 






CLR 


PRGMAP+2 


. . .HI 64K. 


913 


0031 72 


005067 


175402 






CLR 


RELOCF 


INIT THE RELOCATION FACTOR. 


914 


003176 


105737 


001224 






TST8 


@i5'$ENV 


CHECK FOR APT11 


915 


003202 


00101 1 








BNE 


13$ 


BR IF APT 11 


916 


003204 


0057 J 7 


000042 






TST 




CHECK FOR STANDALONE 


917 


003210 


001406 








BEO 


13$ 


BR IF STANDALONE 


918 


00321 2 


023737 


000042 


000046 




CMP 


®)!^42,@#46 


CHECK FOR ACT1 1 


919 


003220 


001402 








BEQ 


13$ 


BR IF ACT1 1 


920 
















MUST BE XXDP 


921 


003222 


004767 


0141 22 






JSR 


PCSAVLDR 


GO SAVE LOADERS 


922 
923 












CHECK IF 


MEMORY MANAGEMENT IS AVAILABLE, AND SET IT UP IF IT IS. 




0032 26 




175354 


13$ 


CLR 


MMAVA 


CLEAR MEM MGMT AVAILABLE FLAG 


925 


003232 


032777 


01 0000 


175700 




BIT 


#SW12, (l>SWR 


CHECK FOR INHIBIT KT11 SWITCH 


926 


003240 


001014 








BNE 


IMPCK 


BRANCH IF SET 


927 


003242 


01 2737 


003272 


000004 




MOV 


#1MPCK,@<'£.".RVEC 


SET UP TIMEOUT TRAP VECTOR 


928 


003250 


005037 


177572 






CLR 


(a#SRO 


CLEAR MEM MGMT STATUS REG 


929 


003254 


004767 


01 1020 






dSR 


PC, MMINIT 


MEM MGMT INITIALIZATION ROUTINE. 


930 


003260 


005267 


175322 






INC 


MMAVA 


SET MEM MGMT AVAILABLE FLAG 


931 


003264 


004567 


020222 






dSR 


R5, SPRINT 


GO PRINT OUT THE FOLLOWING MESSAGE. 


932 


003270 


025354 








.WORD 


MMAMES 


ADDRESS OF MESSAGE TO BE TYPED 


933 
















"KT11 AVAILABLE" 


934 


















935 












CHECK 


IF CACHE PRESENT, IF SO TURN IT OFF!!! 


936 


003272 


01 2706 


001 100 


IMPCK: MOV 


#STACK, SP 




937 


003276 


005067 


176314 






CLR 


CASFLG ;CLEAR CACHE PRESENT FLAG 


938 


003302 


01 2737 


003324 


000004 




MOV 


A-MAPMEM.P^ERRVEC 




939 


00331 


052767 


000014 


174430 




BIS 


#14, IMPCHE 




940 


003316 


01 2767 


000001 


176272 




MOV 


#1, CASFLG ;SET CACHE PRESENT FLAG 


941 
942 


















943 












ROUTINE TO MAP ALL OF MEMORY 




944 












ONLY FULL 


4K BANKS WILL BE RECOGNIZED. 


945 












RO = 


MEMMAP POINTER . . . LO 


64K. 


946 












R1 = 


MEMMAP POINTER. . .HI 


64K. 


947 












R2 = 


ADDRESS POINTER 




948 












R3 = 


BANK POINTER. . . LO 64K. 
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C2QMCF.P11 14-FEB-78 08:19 GET VALUE FOR SOFTWARE SWITCH REGISTER 



950 








951 








952 


003324 


01 2706 


001 100 


953 


003330 


01 2700 


001524 


954 


003334 


01 2701 


001526 


955 


003340 


00 5010 




956 


003342 


00501 1 




957 


003344 


005002 




958 


003346 


01 2703 


000001 


959 


003352 


005004 




960 


003354 


005067 


175605 


961 


003360 


004567 


020126 


962 


003364 


025421 




963 








964 


003366 


01 2737 


003502 


965 


003374 


01 1222 




966 


003376 


022702 


017777 


967 


003402 


001374 




968 


003404 


05 0310 




969 


003406 


05041 1 




970 


003410 


01 0267 


175550 


971 


003414 


005367 


175544 


972 


003420 


005767 


175162 


973 


003424 


001432 




974 


003426 


042767 


160000 


975 


003434 


01 3705 


172344 


976 


003440 


005067 


175522 


977 


003444 


006305 




978 


003446 


006305 




979 


003450 


006305 




980 


003452 


006305 




981 


003454 


006305 




982 


003456 


006167 


175504 


983 


003462 


006305 




984 


003464 


0C6167 


175476 


985 


003470 


060567 


175470 


986 


003474 


005567 


175466 


987 


003500 


000404 




988 








939 








990 


003502 


022626 




991 


003504 


052702 


01 7777 


992 


003510 


0052'.2 




993 


00351 2 


005767 


175070 


994 


003516 


00141 1 




995 


0C3520 


062737 


000200 


996 


003526 


01 2702 


040000 


997 


003532 


006303 




998 


003534 


0061 04 




999 


003536 


1^0316 




1000 


003540 


000402 




1001 








1002 


003542 


1 630 3 




1003 


003544 


10 03-3 




1004 


003546 


01 2737 


0251 14 



R4 = 


BANK POINTER . . .HI 


;* R5 = 


SCRATCH REGISTER. 






MAPMEM: MOV 


#STACK, SP 


MOV 


#MEMMAP,R0 


MOV 


(i'MEMMAP+2.R1 


CLR 


(RO) 


CLR 


(R1 ) 


CLR 


R2 


MOV 


#1 , R3 


CLR 


R4 


CLR 


$TMP3 


JSR 


R5, SPRINT 


.WORD MEMMES 


MOV 


#2$, @i^ERRVEC 


1$: MOV 


{R2>, (R2)+ 


BIT 


#MASK4K,R2 


BNE 


1$ 


BIS 


R3, (RO) 


BIS 


R4, (R1) 


MOV 


R2, STMP2 


DEC 


$TMP2 


TST 


MMAVA 


BEO 


3$ 


BIC 


#160000. $TMP2 


MOV 


(PA'KIPARi.RS 


CLR 


$TMP3 


ASL 


R5 


ASL 


R5 


ASL 


R5 


ASL 


R5 


ASL 


R5 


RCL 


STMP3 


ASL 


R5 


RCL 


STMP3 


ADD 


R5, STMP2 


ADC 


STMP3 


BR* 


3$ 


TIMEOUT 


TRAPS TO HERE 


2S: CMP 


(SP)+, (SP)+ 


BIS 


#MASK4K , R2 


INC 


R2 


3$: TST 


MMAVA 


BEO 


4$ 


ADD 


#200, ia#KIPAR2 


Mr-7 


#40000, R2 


ASL 


R3 


ROL 


R4 


BPL 


1$ 


BR 


5$ 


45: ASLB 


R3 


BPL 


1$ 



; RESET THE STACK 

;SET UP MEMORY MAP POINTER... LO 64K. 
; . . .HI 64K. 

;CLR MEMORY MAP...LO 64K . 
; . . .HI 64K. 

;SET ADDRESS POINTER TO 
;SETUP 4K BANK POINTER... LO 64K. 
; . . .HI 64K. 

; INIT TEMPORARY HIGH ADDRESS BITS. 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 

;ADDRESS OF MESSAGE TO BE TYPED 

; "MEMORY MAP: " 

;SET UP TIMEOUT VECTOR 

; READ+WRITE ALL MEMORY 

;CHECK FOR 4K BOUNDRY 

; BRANCH IF MORE IN BANK 

;SET FLAG FOR BANi:...LO 64K. 

; . . .HI 64K. 

;SAVE ADDRESS POINTER. 

; ADJUST TO LAST AOR , LAST BANK. 

; CHECK FOR MEM MGMT. 

; BR IF NO MEM MGMT. 

;CLEAR BANK BITS ON RELATIVE ADDRESS. 
.-SAVE KIPAR2. 

•,MAKE SURE HI BITS ARE INIT. 
;SHIFT IT 6 PLACES. 



;MAKE LAST ADR PHYSICAL. 
;G0 TO UPDATE POINTERS. 



;RESTORE THE STACK POINTER 

; LAST ADDRESS OF 4K BANK 

•.FIRST ADDRESS OF NEXT BANK. 

•.CHECK FOR MEM MGMT 

; BRANCH IF NO MEM MGMT 

;UPDATE THir-D PAR 

;POINT TO START OF THIRD PAR 

•.UPDATE LO BANK POINTER. 

;UPDATE HI BANK POINTER 

; BRANCH IF MORE MEMORY TO MAP, 

;EXIT WHEN DONE. 



000004 5$: 



UPDATE MAP POINTER 
BRANCH IF NOT YET DONE 
#ERRTRP, @#ERRVEC ;RES£T TIMEOUT VECTOR 



0"124K r. H'.'CRY EXERCISER, 1 6K VER 



MACY11 30A{1D52) aO-FEB-78 07:56 PAGE 22 



ZOMCF 


PI 1 


14-r EB-78 


08: 19 




GET 


VAIUE FOH 


SOFTWARE 


SWITCH Rt 


uISTER 


1 005 


003554 


OC 4767 


1 4632 






JSR 


PC, 


TYPMAP 


;G0 TYPE THE MAP, 


1 006 


003560 


C04567 


01 7726 






JSR 


R5, 


SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


1 007 


C03564 


OC 1 201 








.WORD 


SCRLF 




; ADDRESS OF MESSAGE TO BE TYPED 


1 008 


003566 


01 1 C67 


1 75742 






MOV 


(RO), 


SAVTST 


;SET UP TEST MAP. . . LO 64K. 


1 009 


003572 


01 1 1 67 


1 75740 






MOV 


(R1 ), 


SAVTST+2 


; . . .HI 64K. 


1010 


003576 


01 1 000 








MOV 


(RO), 


SO 


;GET LOW MEM MAP 


1011 


003600 


042700 


1 77760 






BIC 


(Si'177760, RO 


jMASK ALL BUT BOTTOM 4 BANKS 


1012 


003604 


020027 


00001 7 






CMP 


RO,' 


*17 


;CHECK THAT BOTTOM 16K IS ALL THERE! 


1013 


00361 


00 1 530 








BEO 


GMPR 




;BRANCH IF BOTTOM 16K EXISTS 


1014 


00351 2 


004567 


01 7674 






JSR 


R5, 


SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


1015 


00361 6 


025524 








.WORD 


INSUFF 




; ADDRESS OF MESSAGE TO BE TYPED 


1016 


















;» FIRST 16K OF MEMORY NOT ALL THERE 1" 


1017 


003620 


000000 






6$; 


HAUT 






; FATAL ERROP HALT. . . 


1018 


















[MEMORY IS NOT CONFIGURED TO RUN THIS PROGRAM. 


1019 














»'*i»iti««**W««it>»»iliiti*«««*ii<**»**i*«i|i*iiii»«i«>«** 


1 020 












SPECIAL ROUTINE TO 


TYPE OUT 


ALL UNIBUS ADDRESSES WHICH RESPOND TO 


1 021 












DATI, DATIP, DATO, 


AND DATOB. 


1 022 












♦ ••♦*• ***■»**•*•**•* 


>^ 4i 4< HI *i 




1 023 


003622 


01 2706 


001 1 00 




timout; MOV 


(S^STACK, 


SP 


• CCT ItD TI4C CTAPU DntWTCD 
iDC.1 Ur" trie. alMUnt rUiNitK. 


1 024 


003626 


005067 


1 74754 






CLR 


MMAVA 




; CLEAR MEM h'GMT AVAILABLE FLAG. 


1 025 


003632 


032777 


01 0000 


1 75300 




BIT 


*SW12, 


i^SWR 


;CHECK IF MEM MGMT TO BE INHIBITED. 


1 026 


003640 


001011 








BNE 


1$ 




;BR IF NO MEM MGMT. 


1 027 


003642 


01 2737 


003654 


000004 




MOV 


1*1$, 


##ERRVEC 


; SET TIMEOUT FOR MEM MGMT CHECK. 


1 028 


003650 


0050J 7 


1 77572 






CLR 


®#SKD 




; CHECK FOR MEM MGMT... TIMES OUT IF NONE. 


1 029 


003654 


004767 


01 0420 






JSR 


PC, 


MMINIT 


;INIT ALL MEM MGMT REGISTERS. 


1 030 


003660 


005267 


1 74722 






INC 


MMAVA 




;SET MEM MGMT AVAILABLE FLAG. 


1 031 


003664 








is: 










1 032 


003664 


004567 


01 7622 






JL.? 


R5, 


SPRINT 


;G0 PRINT OUT THE FOLLOWING IV,£SSAGE. 


1 033 


003570 


025437 








.WORD 


BYTMES 




; ADDRESS OF MESSAGE TO BE TYPED 


1 034 


















; "BYTE MEMOPY MAP: " 


1 035 


003672 


0' 5000 








CLR 


RO 




;SET UP TYPE OUT FLAG. 


1 036 


003574 


0C50C2 








CLR 


R2 




;SET ADDRESS POINTER TO ZERO. 


1 037 


003576 


01 2737 


003742 


000004 




MOV 


#20$, 


©j^ERRVEC 


;SET TIME OUT VEC TO SERVICE NON-EX MEM. 


1 038 


003704 


1 057 1 2 






10$: 


TSTB 


(R2) 




■,D0 DATI ONLY. 


1 039 


003706 


032702 


000001 






BIT 


/fBITO, 


R2 


; CHECK FOR WORD ADDRESS. 


1 040 


0037 1 2 


00 1 001 








BNE 


11$ 




;BR IF ODD BYTE ADDRESS. 


1 041 


0037 1 4 


011212 








MOV 


(R2), 


(R2) 


;D0 DATI, DATO... NOP FOR READ ONLY MAP. 


1 042 


00371 6 


151212 






11$: 


BISB 


(R2), 


■(R2) 


;D0 DATI, DATIP, DATOB... NOP FOR READ ONLY MAP 


1043 


003720 


005700 








TST 


RO 




;CHECK FOR PREVIOUS TYPOUT. 


1 044 


003722 


001023 








BNE 


30$ 




;BR IF ALREADY TYPED "FROM". 


1045 


003724 


004567 


017562 






JSR 


R5, 


SPRINT 


■,G0 PRINT OUT THE FOLLOWING MESSAGE. 


1046 


003730 


025507 








.WORD 


FROM 




; ADDRESS OF MESSAGE TO BE TYPED 


1047 


















; "FROM" 


1048 


003732 


01 0246 








MOV 


R2, 


-(SP) 


;PUT THE DATA ON THE STACK. 


i049 


003734 


004767 


021212 






JSR 


PC, 


STYPAD 


; DETERMINE THE PHYSICAL ADDRESS AND TYPE IT. 


1050 


003740 


000413 








BR 


29$ 




;G0 TO ADDRESS POINTER UPDATE. 


1051 










; * 


TIME OUTS 


COME HERE. 




1052 


003742 


022626 






20$: 


CMP 


(SP)+, 


(SP) + 


;POP TWO OFF STACK. 


1053 


003744 


005700 








TST 


RO 




.•CHECK FOR PREVIOUS TYPOUT. 


1054 


003746 


001411 








BEQ 


30$ 




;BR IF ALREADY TYPED "TO" . 


1055 


003750 


004567 


017536 






JSR 


R5, 


SPRINT 


;60 PRINT OUT THE FOLLOWING MESSAGE. 


1056 


003754 


025517 








.WORD 


TO 




; ADDRESS OF MESSAGE TO BE TYPED 


1057 


















; "TO" 


1058 


003756 


005302 








DEC 


R2 




.-BACK UP ONE BYTE. 


1059 


003760 


01 0245 








MOV 


R2, 


-(SP) 


;PUT THE DATA ON THE STACK. 


1060 


003762 


004767 


021 164 






JSR 


PC, 


STYPAD 


; DETERMINE THE PHYSICAL ADDRESS AND TYPE IT. 



C20MCF0 


0-1 24K n:EMORY 


EXERCI 


CZOMCF. 


PI 1 


4-FE3-78 


08: 19 


1061 


003766 


0C5202 




1062 


003770 


00 5100 




1063 


003772 


005202 




1064 


003774 


0C14r.3 




1065 


003776 


032702 


017777 


1066 


004002 


001340 




1067 


004004 


005767 


174576 


1068 


004010 


001735 




1069 


00401 2 


022737 


007600 


1070 


004020 


00141 1 




1 071 


004022 


012702 


060000 


1072 


004025 


Oi 3737 


172346 


1073 


004034 


062737 


000200 


1 074 


004042 


CC0720 




1075 


004044 


005700 




1076 


004046 


001407 




1077 


004050 


004567 


017436 


1078 


004054 


025517 




1079 








1080 


004056 


005302 




1081 


004060 


0". 0246 




1082 


004062 


004767 


021064 


1083 


004066 


000000 




1 084 








1085 


004070 


000654 




1086 








1087 








1088 








1 089 








1090 








1 091 








1092 








1093 


004072 


01 2704 


002276 


1 094 


004076 


032777 


oooiro 


1095 


0041 04 


001036 




1 096 


0041 06 


01 2703 


002076 


1097 


0041 1 2 


01 2737 


004134 


1098 


C041 20 


042713 


000001 


1 099 


0041 24 


005773 


000000 


1 100 








1 101 


0041 30 


01 2324 




1 102 


0041 32 


000403 




1 1 03 








1 1 04 


004134 


022626 




1 105 


0041 36 


052723 


000001 


1 106 


004 142 


0C5023 




1 107 


004144 


005023 




1 1 08 


0041 46 


0C5023 




1 1 09 


0041 50 


020327 


002276 


1110 


0041 54 


1 C3761 




1111 


0041 56 


005014 




1112 


0041 60 


01 2737 


0251 14 


1 113 


004166 


005757 


1 761 04 


1114 


0041 72 


001 006 




1115 


0041 74 


004567 


017312 


1116 


004200 


C25605 





16K VER MACY11 30A(1052) 20-FEB-78 07:56 

GET VALUE HOR SOFTWARE SWITCH REGISTER 



29$: 
30$: 



172344 
172346 



INC 

COM 

INC 

BEQ 

BIT 

BNE 

TST 

BF1 

CMP 

BEQ 

MOV 

MOV 

ADD 

BR 

TST 

BEQ 

JSR 

.WORD 

DEC 
MOV 
JSR 
HALT 

BR 



;RESET ADDRESS POINTER. 
; RESET PREVIOUS TYPOUT FLAG. 
;UPDATE ADDPESS POINTER TO NEXT BYTE. 
;EXIT IF 2EP0 REACHED. 
; CHECK FOR 4K BANK BOUNDRY. 
;BR IF MORE THIS 4K BANK. 
; CHECK IF MEM MGMT IS AVAILABLE. 
;BR IF NO MEM MGMT. 
#7600, ®#KIPAR3 ;CHECK FOR END OF LAST 4K BANK. 
31$ ;EXIT WHEN ALL DONE. 

#60000, R2 [RESET VIRTUAL ADDRESS POINTER. 

®#KIPAR3,Si#KlPAR2 ; SAVE MEM MGMT REG FOR TYPEOUT. 
#200, @#KIPAR3 [UPDATE MEW MGMT REG 2 TO NEXT 4K BANK. 
;BR BACK TO DO NEXT BANK. 
[CHECK PREVIOUS TYPE FLAG BEFORE EXIT. 
[BR TO EXIT IF TYPING ALL DONE. 
[GO PRINT OUT THE FOLLOWING MESSAGE. 
[ADDRESS OF MESSAGE TO BE TYPED 



R2 
31$ 

#MASK4K,R2 
10$ 
MMAVA 
10$ 



10$ 



32$ 



TO 



$PRINT 



R2 



'TO" 



BACK ADDRESS POINTER UP ONE BYTE. 
-(SP) [PUT THE DATA ON THE STACK. 

STVPAD [DETERMINE THE PHYSICAL ADDRESS AND TYPE IT. 
[* THIS ROUTINE IS FOR DEBUG USE ONLY. 

TO RUN THE MAIN PROGRAM RESTART AT 200 OR 204. 
[LOOP BACK AND DO AGAIN UPON CONTINUE. 



•SBTTL MAP PARITY REGISTERS 

\m SEARCH fQk PARITY REGISTERS PRESENT AND TYPE ADDRESSES OF THOSE FOUND 
;* THAT ARE F NCTIONAL AND HAVE CORRESPONDING PARITY MEMORY 

GMPR: MOV #MPRX, R4 [SET UP POINTER TO PARITY REG EXIST TABLE. 

BIT #SW06, ©SWR [CHECK FOR INHIBIT PARITY SWITCH. 

BNE GMPRD [BR IF INHIBIT PARITY. 

MCV #MPRO, R3 [SET UP TABLE POINTER 

MOV #GMPRB, ^f'ERRVEC [SET UP TIMEOUT TRAP SERVICE 

GMPRA: BIG #1, (R3) [CLEAR FLAG BIT IN TABLE 

TST @>(R3) [DOES THIS MEMORY PARITY REGISTER EXIST. 

;* IF IT DOESN'T EXIST, A TIMEOUT TRAP WILL GO TO "GMPRB" . 

MOV (R3)+, (R4)+ [SAVE IT IN THE PARITY REG EXIST TABLE. 

BR GMPRC [SKIP TIMEOUT SERVICE CODE 



TIMEOUT COMES HERE 



QMPRC: 



CMP 
BIS 
CLR 
CLR 
CLR 
CMP 
BLO 
CLR 
MOV 
TSi 
BNE 
JSR 

.wq:-d 



(SP) + 

#1 . 

(R3) + 
(R3) + 
(R3) + 
R3, 
GMPRA 
(R4) 

#ERRTRP.i 

MPRX 

MPAMEM 

R5, 

MTR 



(SP) + 
(R3) + 



RESTORE STACK POINTER 

SET FLAG TO INDICATE REGISTER NOT PRESENT 

CLEAR THE MAP. . . LO 64K. 

...HI 64K. 

. . .AND THE MASK. 

HAVE WE CHECKED ALL REGISTERS? 

NO - GO BACK TO CHECK NEXT ONE 

SET TERMINATOR IN PARITY REG EXIST TABL€. 

[ RESTORE TRAPCATCHER 

[ANY PARITY REGISTERS PRESENT? 

[YES - GO TEST CONTROLS PRESENT 
GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 



C20MCF0 0-124K MEMORY EXERCISER, ItiK VER MACY11 30A(1052) 20-FEa-78 07:56 PAGE 24 

CZQMCF.P11 14-'FEB-7a 08:19 MAP PARITY REGISTERS SEO 0106 

1117 :"N0 MEMORY PARITY REGISTERS FOUND" 

1118 004202 005014 GMPRD: CLR (R4) ;MAKE SURE TABLE IS CLEAR, 

1119 004204 0C0167 '001156 JMP MANUAL ;AND SKIP ALL CONTROLS TESTING 
1120 



CZOMCFO 0'-l24K MEMORY EXERCISER, 
CZ0MCF.P11 14-PEBt78 08:19 



121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 



151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 



16K VER MACY11 30A(1052) 20-FEP-78 07:56 PAGE 25 

MAP PARITY MEMORY 

.SBTTL MAP PARITY MEMORY 

IMAP CORRESPONDENCE BETWEEN PARITY REGISTERS AND MEMORY, AND TYPE RESULTS 
NOTE THAT IF PARITY MEf.iORY IS NOT LOCATED CORRECTLY THAT IT IS IN ALL 
PROBABILITY DUE TO ONE OF THE FOLLOWING FAILURES: 

- SETTING WRITE WRONG PARITY DIDN'T CAUSE BAD PARITY TO BE WRITTEN 

- PARITY GENERATE OR DETECT LOGIC FAILED 
^ PARITY ERROR BIT FAILED TO SET 
-• PARITY BITS IN MEMORY LOCATION FAILED 

- I.E. BIT STUCK AT GOOD PARITY VALUE 



004210 
004214 
004222 
004226 
004232 
004236 
00<'240 
004244 



004767 
01 2767 
005067 
012702 
005767 
001404 
012702 
004767 



014054 
000001 
175320 
014000 
174350 

O54000 
010030 



MPAMEM: JSR 


PC, 


CLRPAR 


INITIALIZE ALL PARITY REGISTERS 


MOV 


^1 . 


BITPT 


INITIALIZE 4K POINTER 


CLR 


BITPT+2 




CLEAR HI 64K POINTER 


MOV 


#14000, 


P2 


SET ADR POINTER TO 14000. 


TST 


MMAVA 




CHECK FOR MEM MGMT 


BEO 


MAPRB 




BRANCH IF NO MEM MGMT 


MOV 


#54000, 


R2 


SET ADR POINTER TO PAR2 


JSR 


PC, 


MMINIT 


SET UP ALL MEMORY MGMT REGISTERS 









JSET WRITE WRONG PARITY IN ALL REGISTERS PRESENT 

THEN WRITE TEST ..OCATION VIA DATO & READ TEST LOCATION VIA DATI 
5* THEN CLEAR WRITE WRONG PARITY IN ALL REGISTERS. 



004250 


005067 


175264 




MAPRB: 


CIA 


PMEMAP 




ICLEAR THE PARITY MEMORY MAP 


004254 


005067 


175262 






CLR 


PMEMAP+2 




004260 


012703 


002076 




IS: 


MOV 


#MPRO, 


R3 


INITIALIZE TABLE ADDRESS 


004264 


0. 2713 


000001 




2$: 


BIT 


#1 , 


(R3) 


;IS THIS REGISTER PRESENT? 


004270 


001052 








BNE 


3S 




;N0 - GET THE NEXT ONE 


004272 


013773 


001§12 


000000 




MOV 


##WWP, 


@(R?) 


;Y£S - SET WRITE WRONG PARITY 

;ANO CLEAR REST OF REGIS 


004300 


01 1212 








MOV 


{R2), 


(R-) 


IWRITE WRONG PARITY 


004302 


0C5712 








TST 


(R2) 




;READ WRONG PARITY 


004304 


043773 


001612 


OOOQOO 




BIC 


e>#wwp, 


®(R3) 


;CLEAR WRITE WRONG PARITY 


004312 


005773 


OQQOOO 






TST 


@(R3) 


jOTHERWISE, CHECK TO SEE IF THIS 
ICONTROL REGISTER GOT A 
; ERROR 


004316 


100014 








BPL 


6$ 




•.BRANCH IF IT DIDN'T AND CHECK 


004320 


032773 


007 V40 


(?00000 




BIT 


#7740, 


««(R3) 


; IS IT A CORE PAR. REG. 


004326 


001404 








BEO 


5$ 




; BRANCH IF NOT. 


004330 


01 2763 


07003? 


OOOC- 6 




MOV 


#70032, 


6(R3) 


;IF IT IS SET UP MASK 


004336 


0C0413 








BR 


7$ 




•.AND BRANCH TO SET BITS. 


004340 


01 2763 


077772 


000006 


5S: 


MOV 


#77772, 


6{R3) 


;IF MOS SET UP MASK 


004346 


000407 








BR 


7S 




;AND BRANCH TO SET BIT. 


004350 


032773 


007740 


000000 


6S: 


BIT 


#7740. 


©(R3) 


;IF ANY BITS ARE SET 


004356 


001417 








BEO 


3S 




;THEN CSR IS MSI 1 -K . 


004360 


012763 


070000 


000006 




MOV 


#70000, 


6(R3) 


; IF MSI 1-K SET MASK. 


004366 


056763 


17515? 


000002 


7S: 


BIS 


BITPT, 


2(R3) 


;SET FLAG IN MAP FOR THIS PARITY 


004374 


056763 


175146 


000004 




BIS 


BITPT+2 


4(R3) 




00^402 


056767 


175136 


175130 




BIS 


BITPT, 


PMEMAP 


;SET FLAG IN PARITY MAP 


O0441O 


056767 


1751ii 


1 751 24 




BIS 


BITPT+2, PMEMAP+2 




004416 


062703 


000010 




35: 


ADD 


#10, 


R3 


;STEP UP TO NEXT REGISTER 


004422 


020327 


002276 






CMP 


R3, 


#MPRX 


;ARE WE DONE WITH TABLE? 



1 % 
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Jiliiii 
liliiipiil 



1 1 77 


004426 


1C3716 








BLO 


2$ 




;GQ BACK TO CHECK FOR ANY MORE! 


1 1 78 


004430 


011212 








MOV 


(R2) . 


{R2) 


;CLEAR BAD PARITY 


1 1 79 


004432 


0C5767 


1 741 50 






TST 


MMAVA 




; CHECK FOR f/EM WGMT 


1 1 60 


CD443S 


CO 14- \ 








BEO 


10$ 




; BR IF NO MEM MGMT 


1181 


OD4440 


Co2737 


000200 


172344 


4$; 


ADD 


*'200, 


S'#KIPAR2 


lUPDATE PAP TO NEXT 4K BANK. 


1 1 82 


C04446 


0C6367 


1 75072 






ASL 


BITPT 




;UPDATE BANK POINTER... LO 64K. 


1 1B3 


004452 


0061 67 


175070 






ROL 


BITPT+2 




; . . .HI 64K. 


1 1B4 


004456 


1C0441 








Bf. . 


TMAP- 




;BR IF ALL DONE. 


1 185 


0C44SC 


023727 


172344 


001000 




CMP 


@/rKIPAR2.#1000 


;THIS CODE TESTS IF MS11-K IS 


1 106 


004466 


0C1013 








BNE 


12$ 




jPRESENT AND IF IT IS I SET 


1 187 


004470 


0' 2737 


000003 


002260 




BIT 


(^3,@#MPR14+2 


;THE BIT TO DISABLE ECC IN 


11 88 


004476 


0C1004 








BNE 


13$ 




;THE LOCATION WWP THAT IS 


1 189 


004500 


052737 


000003 


002270 




BIT 


#3,S»»MPRl5+2 


;USED AS THE COMMAND TO 


1190 


OC4506 


001400 








BEO 


13$ 




;WRITE WRONG PARITY. 


1191 


004510 


01 2737 


020004 


001612 


13S: 


MOV 


*20004,!?!#W..P 




1 192 


004516 


036767 


1 75Q22 


175000 


12$: 


BIT 


BITPT, 


MEMMAP 


;CHECK IF BANK EXISTS... LO 64K. 


1 193 


004524 


001255 








BNE 


1$ 




;BR IF BANK EXISTS. 


1 194 


004526 


C26767 


175014 


174772 




BIT 


BITPT+2, MEMMAP+2 


; . . .HI 64K. 


1 195 


004534 


001251 








BNE 


1$ 




; BR IF BANK EXISTS. 


1 196 


004536 


000740 








BR 


4$ 




; BR IF BANK DOESN'T EXIST. 


1 197 


0C4540 


036767 


1 75000 


1 74756 


11$: 


BIT 


BITPT, 


MEMMAP 


; CHECK IF BANK EXISTS. 


1 198 


004546 


001244 








BNE 


1$ 




; BR IF BANK EXISTS. 


1 199 


004550 


0627C2 


020000 




10$; 


ADD 


#20000; 


R2 


;UPDATE ADDPESS POINTER TO NEXT BANK. 


1200 


004554 


106367 


1 74764 






ASLB 


BITPT 




;MOVE POINTER TO NEXT BANK. 


1 201 


00456C 


100367 








BPL 


11$ 




; BR IF MORE TO LOOK FOR. 


1202 
1 203 




















1204 










;» ROUTINE T 


TYPE MAP 


OF WHERE 


PARITY MEMORY IS PRESENT 


1205 










;* AND 


WHICH 


CONTROL REGISTERS 


CONTROL WHICH MEMORY 


1206 




















1207 




















1 208 


004562 


004767 


013502 




TMAP: 


USR 


PC, 


CLRPAR 


INITIALIZE ALL PARITY REGISTERS PRESENT 


1 209 


004566 


004567 


01 6720 






JSR 


R5, 


SPRINT 


; GO PRINT OUT THE FOLLOWING MESSAGE. 


1210 


004572 


025462 








.WORD 


MTMAP 




; ADDRESS OF MESSAGE TO BE TYPED 


121 1 


















; "PARITY MEMORY MAP:" 


1212 


004574 


01 2703 


002076 






MOV 


#MPRO, 


R3 


;INITIALIZE TABLE POINTER 


1213 


004600 


032713 


000001 




1$: 


BIT 


*BITO, 


IR3) 


;CHECK IF THIS REGISTER IS PRESENT. 




004604 


001046 








BNE 


2S 




"BR IF NOT PRESENT. 


1215 


004505 


022763 


070032 


000006 




CMP 


#70032. 


6(R3) 




1216 


004614 


001004 








BNE 


3$ 






1217 


004616 


004567 


016670 






JSR 


R5, 


SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


1218 


004622 


025123 








.WORD 


MX3 




i ADDRESS OF MESSAGE TO BE TYPED 


1219 


















;"CORE PARltY" 


1220 


004624 


000417 








BR 


5$ 






1221 


004526 


022763 


077772 


000006 


3$: 


CMP 


#77772, 


6(R3) 




1222 


004634 


001004 








BNE 


4$ 






1223 


004636 


004567 


016650 






JSR 


R5. 


SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


1224 


004642 


026142 








.WORD 


MX4 




; ADDRESS OF MESSAGE TO BE TYPED 


1225 


















;"MOS PARITY" 


1226 


004644 


000407 








BR 


5$ 






1227 


004646 


022763 


070000 


000006 


4S: 


CMP 


#70000, 


6(R3) 




1228 


004554 


001003 








BNF 


5$ 






1229 


004655 


004567 


016630 






USR 


R5, 


SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE, 


1230 


004662 


026160 








.WORD 


MX5 




; ADDRESS OF MESSAGE TO BE TYPED 


1231 


















; "MSI t-K CSR" 


1232 


004664 








5$; 
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1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1245 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1 283 
1284 
1285 
1286 
1287 
1288 



004664 
004670 



004567 016622 
026071 



004672 011346 



004574 
004700 
004704 
004710 

004712 
004714 
00471 6 
004722 
004726 
004732 
004734 
004740 

004742 
004750 
004752 
004760 
004766 
004774 
004776 
005004 
005012 
005016 
005022 
005024 
005026 
005034 
005040 
005042 
005044 
0D5052 
005056 
005060 
005064 
005066 



005072 
005D76 
0051 00 
0051 04 
0051 10 
0051 12 



010300 
005720 
004767 
062703 
020327 
103722 
004567 
001201 

022737 
001006 
043727 
043737 
022737 
001031 
043737 
043737 
01 2705 
021537 
001004 
005015 
052737 
022537 
001366 
005045 
052757 
0C4567 
026176 
0C5737 
001002 
000167 



0- 2703 
1 13C2 
062703 
032702 
001372 
020327 



000010 
000001 



USR 
.WORD 



SPRINT 



MX1 



MOV 



(R3),-(SP) 



013746 177776 

004767 020004 

004567 016602 
0261 10 



0134'. J 
000010 
002276 



070000 PQ2264 



;G0 PRINT OUT THE FOLLOWING MESSAGE. 
; ADDRESS OF MESSAGE TO BE TYPED 
•."REGISTER AT" 
;;SAVE (R3) FOR TYPEOUT 
THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE STYPOC ROUTINE 
WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC*». 
MOV 
JSR 
JSR 
.WORD 

MOV 
TST 
JSR 
ADD 
CMP 
BLO 
JSR 
SCRLr 



002260 
002262 
070000 

002270 
002272 
002276 
002256 



000001 
002266 



000001 
016434 



002276 
000274 



001540 
001540 
002274 

001540 
001542 



CMP 

BNE 

BIC 

BIC 

CMP 

BNE 

BIC 

BIC 

MOV 

CMP 

BNE 

CLP 

BIS 

CMP 

BNE 

CLR 

BIS 

JSl 

.WORD 

TST 

BNE 

JMP 



®#PSW, 


-(SP) 


;PUT THE PROCESSOR STATUS ON THE STACK 


PC, 


STYPOC 


;G0 TO THE SUBROUXINE 


R5, 


SPRINT 


,G0 PRINT OUT THE FOLLOWING MESSAGE. 


MX2 




; ADDRESS OF MESSAGE TO BE TYPED 






; "CONTROLS" 


R3. 


RO 


;SET UP RO FOR TYPMAP ROUTINE. 


(R0) + 




lUPDATE POINTER TO MAP. 


PC, 


TYPMAP 


;G0 TYPE THE MEMORY COVERED BY THIS REGISTER. 


#10. 


R3 


.UPDATE TO NEXT REGISTER IN TABLE. 


R3, 




ARE WE ALL DONE WITH TABLE? 


1$ 




BRANCH IF MORE REGISTERS 


R5, 


SPRINT 


THE REASON I'M OUTPUTTING THIS CRLF 






IS To GIVE THE PRINTER ENOUGH TIME TO 






FINISH PRINTING 'ME MEMORY MAP BEFORE THE RESET OCCURS 


#70000, @#MPR14+6 


;D0 WE HAVE MS11-K AT THIS ADDRESS 


7$ 




IF NO BRANCH 



@#MPR14+2*.#PMEMAP ;IF YES THEN CLEAR THE BITS IN 
@#MPR14+4,@>ftPMEMAP ; THE PARITY MEMORY MAP. 
#70000, g-^MPRIS+B ;D0 WE HAVE A MS11-K 

9$ ;IF NO GO TO TESTS NOW. 

@#MPR15+2.@#PMEMAP ; I F YES I AM GOING TO 

(P#MPR15+4,Ci#PMEMAP+2 ;CLEAR THE PARITY INDICATORS 
#MPRX, R5 :FOR THAT PORTION OF MEMORY. 

(R5),@#MPR14 ;SEARCH FOR THIS MS11-K CSR IN 
8$ -.AND IF ITS THERE DELETE IT 

(R5) 

#1 ,@#MPR14 

(R5)+, S!#MPR15 iSEARCH FOR MSII-K CSR IN 
6$ ;THE AVAILABILITY TABLE, 

-(R5) -.AND CLEAR ITS ADDRESS FROM THE TABLE 

P*MPR15 ;SET BITO IN ADDRESS IN CSR TABLE 
SPRINT jOUTPUT MESSAGE TO RUN MS11-K TEST. 



R5, 
MX6 
@#MPRX 
CTRLS 
MANUAL 



-.ARE THERE ANY PARITY REGISTERS TO TEST? 
;IF SO TEST THE BITS IN THE REGISTERS, 
;IF NO JUMP OVER REGISTER TESTS. 



.SBTTL TEST PARITY REGISTERS 



SHOW THAT BITS 0. 2, 5 - 
CAN BE SET AND CLEARED. 
THIS .3 A ONCE ONLY TEST 



CTRL- 
IS: 



MOV 
MOV 
ADO 
BIT 
BNE 
CMP 



#MPRO. 

(R3), 

#10, 

#1 . 

IS 

R3. 



R2 
R3 



11, AND 15 OF EACH PARITY REGISTER PRESENT 



; LOAD INITIAL TABLE ADDRESS FOR A POINTER 

; LOAD R2 WITH ADDRESS OF THIS PARITY REGISTER 

;UPDATE POINTER TO NEXT PAR. REG. ADD. 

; IS THIS REGISTER BEING USED? 

;G0 TO NEXT IF NOT 

;ARE WE AT END OF TABLE 



C20MCF0 


0-12 


4K ^',EMCRY 


EXERCISER, 16K 


VER 


MACY1 1 


30A( 1052 


2C-FEP 


-78 07:56 PAGE 28 


C20MCF. 


PI 1 


14-FEB-78 


08; 19 




TEST PARITY REGISTERS 






1 289 


0051 16 


003055 








8GT 


RESCHK 




GO TO NEXT TEST IF YES 


1290 


005120 


0C5763 


1 77776 






TST 


-2{R3) 




TEST MASK FOR PA:^ITY REGISTER 


1 291 


005124 


0C1764 








BEQ 


1 $ 




IF = O.THEN DO NCT TEST 


1292 


005126 


016367 


17777S 


174362 




M0>^ 


~2(R3) , 


SESRVD 


GET MA5K FOR REGISTER WE ARE WORKING ON 


1293 


0051 34 


01 2700 


000001 






MOV 


#1 , 


RO 


LOAD RO WITH VALUE OF 1ST BIT TESTED 


1 294 


0Q5l 40 


005012 








CLR 


( R2) 




INITIALIZE THE PARITY REGISTER 


1295 


0051 42 


011201 








MOV 


( R2) , 


R1 


READ THE CONTENTS OF THE PARITY REGISTER 


1296 


0051 44 


046701 


1 74346 






BIC 


RESRVD , 


R1 


CLEAR BITS WHICH ARE RESERVED 


1297 


0C51 50 


CC 1405 








BEO 


2$ 




CHECK OTHEP BITS - BRANCH IF OK 


1298 


005152 


CC4767 


013134 




64$: 


USR 


PC, 


SPRNT 


SET UP VALUES FOR ERROR PRINTING. 


1299 


005156 


004767 


01 4455 






JSR 


PC , 


SERROR 


**" ERROR *** (GO TYPE A MESSAGE) 


1300 


005162 


0C00Q1 










1 




ERROK TYPE CODE. 


1301 


005164 


030067 


1 74326 




2$: 


BIT 


RO , 


RESRVD 


IS THIS BIT RESERVED? 


1 302 


0051 70 


C01O25 








BNE 


3$ 




YES - DON' T TEST IT 


1303 


0051 72 


01 0012 








MOV 


RO , 


(R2) 


NO - SET THIS BIT IN THE PARITY REGISTER 


1304 


005174 


01 1201 








MOV 


( R2) , 


Rl 


READ 8 SAVE CONTENTS OF THE PARITY REGISTER 


1305 


0051 76 


0C5012 








CLR 


(R2) 




CLEAR THE PARITY REGISTER 


1306 


0052GO 


0-';67C1 


174312 






BIO 


RESRVD, 


R1 


CLEAR BIT lOCATICNS THAT ARE RESERVED 


1307 


905204 


020001 








CMP 


RO, 


R1 


COMPARE THE CHECK WORD WITH THE DATA READ. 


130a 


005206 


001405 








BEO 


66$ 




BRANCH OVER ERROR CALL IF GOOD DATA. 


1309 


005210 


004767 


013126 




65$: 


dSR 


PC, 


SPRNTO 


SET UP VALUES FOR ERROR PRINTING. 


1310 


005214 


004767 


014420 






dSR 


PC, 


SERROR 


*** ERROR *** (GC TYPE A MESSAGE) 


1 31 1 


005220 


oqooci 








.WORD 


1 




ERROR TYPE CODE. 


1312 


005222 








66$: 










1313 


005222 


01 1201 








my 


(R2), 


R1 


READ THE CONTENTS OF THE PARITY REGISTER 


1314 


005224 


046701 


1 7426g 






BIC 


RESRVD, 


Rl 


CLEAR BITS WHICH ARE RESERVED 


1315 


005230 


00 1405 








BEO 


3S 




CHECK OTHEP BITS - BRANCH IF OK 


1316 


005232 


004767 


013054 




67$: 


^^d 


PC, 


SPRNT 


SET UP VALUES FOR ERROR PRIMING. 


1317 


005235 


004767 


014376 






JSR 


PC, 


SERROR 


*** ERROR *■** (GO TYPE A MESSAGE) 


1318 


005242 


000001 








.WORD 


1 




ERROR TYPE CODE. 


1319 


005244 


3300 






35 : 


ASL 


RO 




ROTATE TO GET NEXT BIT TO BE TESTED 


1320 


005245 


103346 








BCC 


2$ 




BRANCH IF NOT DONE WITH ALL BITS 


1321 


005250 


000712 








BR 


1$ 




AFTER TESTING FOR BIT 15 GO GET NEXT REGISTER, 


1322 




















1323 


















1324 










;* SHOW 


THAT RESET CLEARS BITS 


2. AND 15 OF EACH PARITY REGISTER PRESENT. 


1325 










;* THIS IS A 


ONCE ONLY 


TEST. 




1326 


















1327 
1328 


005252 


01 2704 


002076 




RESCHK: 


MOV 


#MPRO , 


R4 


LOAD INITIAL TABLE ADDRESS FOR A POINTER 


1329 


005256 


01 0403 






is: 


MOV 


R4, 


R3 




1330 


005260 


062704 


000010 






ADD 


ffiO, 


R4 




1331 


005264 


032713 


000001 




BIT 


#1 , 


(R3) 


;IS THIS 


REGISTER BEING USED 


1332 


005270 


001372 








BNE 


1$ 




BRANCH IF NO 


1333 


005272 


01 2773 


177777 


OOCOOO 




MOV 


*^'-l , 


(P(R3) ;SET ALL BITS TO A 1 


1334 


005300 


022704 


002276 






CMP 


#MPRX,R4 ;ARE WE AT THE END OF THE TABLE 


1335 


0C5304 


002764 








BLT 


1S 


;IF YES THEN WE ARE READY TO TEST 


1336 


005305 


0000C5 








RESET 




; RESET THE WORLD 


1337 


005310 


01 2703 


002076 






MOV 


MtAPRO, 


R3 ; LOAD INITIAL ADDRESS FOR POINTER 


1338 


005314 


01 1302 






2S: 


MOV 


(R3), 


R2 ;STORE PARITY REGISTER ADDRESS 


1339 


005316 


062703 


000010 






ADD 


#10, 


R3 




1340 


005322 


032702 


000001 






BIT 


#1 , 


R2 




1 341 


005325 


001372 








BNE 


2$ 






1342 


005330 


022703 


0022/6 






CMP 


#MPRX, 


R3 




1343 


005334 


002014 








BGE 


MANUAL 






1344 


005336 


01 1201 








MOV 


{R2), 


Rl .-GET CONTENTS OF REGISTER 



CZOMCFO 


0-1 24K MEMORY 


CZOMCF. 


PI 1 


14-FEB-78 


1345 


005340 


0C5O12 


1346 


005342 


042701 


1347 


005346 


005701 


1348 


005350 


0C14f 5 


1349 


005352 


004757 


1350 


005356 


004767 


1351 


005362 


000001 


1352 


005354 




1353 


005364 


000753 


1354 






1355 






1356 


005366 


Qi 2700 


1357 


005372 


01 2701 


1358 


005376 


005021 


1359 


005400 


005300 


1360 


005402 


0C1375 


1361 


005404 


1Q5767 


1362 


00541 


OOlOpB 


1363 


005412 


01 6767 


1364 


005420 


000167 
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TEST PARITY REGISTERS 



0127^4 
014256 



000014 
001562 



173546 
000402 



CLR 


(R2) 






BIC 




Rl 


CLEAR BITS NOT EFFECTED BY RESET 


TST 


Rl 


ICHECK IF REST WERE CLEARED BY RESET 


BEO 


65$ 




BRANCH OVEP ERROR CALL IF GOOD DATA. 


USR 


PC, 


SPRNT 


SET UP VALUES FOR ERROR PRINTING. 


JSR 


PC, 


SERROR 


*** ERROR *** (GO TYPE A MESSAGE) 


.WORD 


1 




ERROR TYPE CODE. 


BR 


2$ 




BRANCH BACK TO CHECK NEXT REGISTER 


MOV 


#12. , 


RO 


SET COUNTER TO CLEAR 12 WORDS. 


MOV 


j^FSTADR.RI 


STARTING AT FSTADR. 


CLR 


(Rl ) + 




CLEAR THE LOCATIONS. 


DEC 


RO 




COUNT. 


BNE 


15 




BR IF MORE. 


TSTB 


SELFLG 




CHECK FOR SELECT PARAMETERS STARTUP. 


BNE 


MANUL1 




BR IF PARAMETERS TO BE SELECTED. 


MOV 


STMP2. 


LSTADR 


SET UP VIRTUAL LAST ADDRESS. 


JMP 


MANUL2 




SKIP PARAMETER SELECTION SECTION. 
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1365 








.SBTTL 


USER 


PARAMETER SELECTION 


SECTION 


1366 
















1 357 








•* USER 


PARAMETER SELECTION SECTION IS ENTEf^ED BY STARTING AT 204. 


1368 
















1 359 


005424 


01 2700 


000001 


MANUL1 : 


MOV 


*BIT0, RO 


;SET UP BANK POINTER. 


1370 


D05430 


0C5C01 






CLR 


R1 


; . . .HI 64K. 


1371 


005432 


0C5002 






CLR 


R2 


ICLEAR ADDRESS POINTER. 


1372 


005434 


0C5003 






CLR 


R3 


; . . .HI ADDRESS BITS. 


1373 


005436 


0C4567 


016050 




USR 


R5, SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


1374 


005442 


02631 1 






.WORD 


FADMES 


lADDRESS OF MESSAGE TO BE TYPED 


1375 














; "FIRST ADDFESS:" 


1375 








;* THE 


NEXT 


TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE SRDOCT ROUTINE 


1 377 








;* WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY ♦*SYSMAC**. 


1373 


005444 


01 3746 


17777: 




MOV 


QffPS'^, -(SP) 


;PUT THE PROCESSOR STATUS ON THE STACK 


1379 


005450 


0C4767 


015664 




dSR 


PC, SRDOCT 


;G0 TO THE SUBROUTINE 


1330 


C05454 


0-2715 


000001 




BIC 


(*3IT0, (SP) 


;MAKE SURE ADDRESS IS ON A WORD BOUNDRY. 


1381 


005460 


OC 5067 


174C30 




CLR 


SAVTST 


; INIT TEST MAP. . . LO 64K . 


1382 


005454 


0C5C67 


174045 




CLR 


SAVTST+2 


; . . .HI 64K. 


1383 


005470 


Ct2702 


020000 


IS: 


ADD 


P20000, R2 


iUPDATE ADDRESS POINTER TO NEXT BANK. 


1334 


005474 


0C55C3 






ADC 


R3 




1385 


005476 


02C367 


016006 




CM? 


R3. SHIOCT 


ICHECK HI ADDRESS BITS. 


1336 


005502 


103403 






BLO 


2$ 


;BR IF NOT HI ENDLGH YET. 


1387 


005504 


101006 






BHI 


3$ 


;BR IF PAST SELECTED ADDRESS. 


1388 


005506 


020216 






CMP 


R2, (SP) 


;CHECK THE lQ ADDRESS BITS. 


1389 


005510 


101004 






BHI 


3$ 


;BR IF PAST SELECTED ADDRESS. 


1390 


00551 2 


0C63C0 




2S: 


ASL 


RO 


;U?DATE POINTER... LO 64K. 


1391 


005514 


C C 5 1 1 






ROL 


Rl 


; . . .HI 64K . 


1 392 


005516 


100364 






BPL 


IS 


;BR BACK TO CHECK NEXT BANK. 


1393 


00552C 


000507 






BR 


17$ 


; BR IF OVERFLOW. 


1394 


005522 


030067 


173776 


3$: 


BIT 


RO, MEMMAP 


;CHECK IF BANK EXISTS. 


1395 


005523 


C01003 






BNE 


4S 


;3R IF BANK EXISTS. 


1396 


0C5530 


030167 


173772 




BIT 


R1, MEMMAP+2 


;CHECK HI 64K. 


1397 


005534 


001501 






BEQ 


17$ 


;BR IF ADDRESS IN UN-MAPPED BANK. 


1398 


005536 


01 6704 


015746 


4S: 


MOV 


SHIOCT, R4 


;SAVE FIRST ADR HI BITS. 


1399 


005542 






10$: 








1400 


005542 


004567 


015744 




JSR 


R5, SPRINT 


:GC PRINT OUT THE FOLLOWING MESSAGE. 


1401 


005545 


026376 






.WORD 


LADMES 


; ADDRESS OF MESSAGE TO BE TYPED 


1402 














: " LAST ADDRESS: " 


1403 








;* THE 


NEXT 


TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE SRDOCT ROUTINE 


1404 








WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 


1405 


005550 


01 3746 


177776 




MOV 


r--?Pbw, -(SP) 


; PUT THE PROCESSOR STATUS ON THE STACK 


1406 


005554 


004767 


015560 




USR 


PC. SRDOCT 


:G0 TO THE SUBROUTINE 


1407 


005560 


005716 






TST 


(SP) 


-.CHECK IF ADR SELECTED (DEFAULT) . 


1408 


0D5562 


0010 D 






BNE 


1 IS 


;BR IF NOT (DEFAULT) 


1409 


005554 


005767 


015720 




TST 


SHIOCT 


;CHECK HI BITS. 


1410 


005570 


001005 






BNE 


11$ 


;BR IF NOT (DEFAULT) . 


141 1 


005572 


0-. 6716 


173365 




MOV 


$TMP2, (SP) 


;SET UP DEFAULT LAST ADR. 


1412 


005576 


0>6767 


173364 015704 




W- / 


$TMP3, SHIOCT 




1413 


005604 


01 2667 


173764 


11$: 


MOV 


(SP)+, LSTADR 


;GET THE DATA. 


1414 


005510 


020467 


015674 




CMP 


R4, SHIOCT 


;CHECK FOR LAST ADR BELOW FIRST ADR. 


1415 


005614 


1'^1352 






BHI 


10$ 


;S5 IF LAST BELOW FIRST. 


1416 


005516 


103403 






BLO 


12$ 


;BR IF LAST ABOVE FIRST. 


1417 


005620 


021667 


173750 




CMP 


(SP), LSTADR 


;CH£CK FOR LAST BELOW FIRST. 


1418 


005524 


1 1 346 






BHI 


10$ 


;BR IF LAST BELOW FIRST. 


1419 


005626 


0327-.6 


017777 


12$: 


BIT 


/?MASK4K, (S- ) 


;CHECK IF FIRST ADR ON BANK BOUNDRY. 


1420 


005632 


001404 






BEO 


13$ 


;BR IF ON BOUNDRY. 



;ZOMCFO 


0-1 24K rv'EMCRY 


EXERCISER, 16K 


VER 




MACY1 1 


30A{1052 


20-FEB 


-78 07:56 PAGE 21 


:ZQMCF. 


PI 1 


4-f E3-78 


08: 19 




USER 


PARAMETER 


SELECTION SECTION 




1421 


005534 


01 0067 


173730 








MOV 


RO, 


FADMAP 


SET UP FIRST ADDRESS MAP. 


1422 


005640 


01 0167 


17372S 








MOV 


R1 , 


FACMAP+2 




1423 


0C5E44 


050067 


173664 




13$: 




BIS 


RO, 


SAVTST 


SET FLAG IN TEST MAP...LO 64K. 


1424 


005650 


050167 


173662 








BIS 


R1 , 


SAVTST+2 


; . . .HI 64K. 


1425 


005C54 


020367 


015630 




14$: 




CMP 


R3, 


ShIOCT 


CHECK FOR PAST LAST ADR. 


1426 


005660 


1C3404 










BLO 


15$ 




3R IF BELOW LAST ADR. 


1427 


005562 


1C 1020 










BHI 


16$ 




BR IF GONE PAST LAST ADR. 


1428 


005654 


020267 


173704 








CMP 


R2, 


LSTADR 


CHECK FOR PAST LAST ADR. 


1429 


005B70 


10 1015 










BHI 


16$ 




BR IF GONE PAST LAST ADR. 


1430 


005672 


06 2702 


020000 




15$: 




ADD 


«20000, 


R2 


UPDATE AODPESS POINTER. 


1431 


005676 


0C55C3 










ADC 


R3 




. . .HI BITS. 


1432 


CC5700 


006300 










AS! 


RO 




UPDA.'E BANK POINTER... LO 64K . 


1433 


005702 


0:51 01 










ROL 


R1 




. . .HI 64K. 


1434 


005704 


100415 










BMI 


17$ 




ER IF OVERFLOW. 


1435 


005706 


C30C67 


173612 








BIT 


RO, 


MEMMAP 


CHECK IF THIS BANK EXISTS. 


1436 


005712 


00 1 354 










BNE 


13$ 




BR IF BANK EXISTS. 


1437 


005714 


03 0167 


173606 








BIT 


R1 , 


MEMMAP+2 


:CHECK IF THIS BANK EXISTS. 


1430 


005720 


0013=1 










BN". 


13$ 




BR IF BANK EXISTS. 


1439 


005722 


000754 










BR 


14$ 




BR IF BANK DOESN'T EXIST. 


1440 


005724 


030067 


173574 




16$: 




BIT 


RO, 


MEMMAP 


CHECK IF THIS BANK EXISTS. 


1441 


005730 


00 1010 










BNE 


20$ 




BR IF IT EXISTS. 


1442 


005732 


02 0167 


173570 








BIT 


R1 , 


M£MMAP-r2 


;CHECK IF THIS BANK EXISTS. 


1443 


005735 


00 1005 










BNE 


20$ 




3R IF IT EXISTS. 


1444 


005740 


0057^0 






17$: 




TST 


(SP)^ 




ADJUST THE STACK. 


1445 


005742 


004567 


015544 








dSR 


R5, 


SPRINT 


GO PRINT OUT THE FOLLOWING MESSAGE. 


1446 


005746 


026421 










.WORD 


BADADR 




ADDRESS OF MESSAGE TO BE TYPED 


1447 




















"7ADDRESS IN UNMAPPED BANK?" 


1448 


005750 


000606 










BK 


MANUAL 




LOOP BACK TO THE BEGINNING. 


1449 


005752 


01 0067 


1 73624 




20$: 




MOV 


RO, 


LADMAP 


SET UP MAP FOR LAST ADDRESS. 


1450 


005756 


Ot 0167 


173622 








MOV 


R1 , 


LADMAP+2 




1451 


005762 


5767 


172620 




21$: 




TST 


MMAVA 




CHECK FOR r.-E!.10RY MANAGEMENT. 


1452 


005766 


CC1404 










BEO 


22$ 




BR IF NO MEM MGMF. 


1453 


005770 


042716 


160000 








BIC 


#160000 


(SP1 


ADJUST FSTADR TO VITRUAL BANK 0. 


1454 


005774 


062716 


040000 








ADD 


^40000, 


(SPj 


... TO VIRTUAL BANK 2. 


1455 


COSOOO 


01 2667 


173556 




22$: 




MOV 


(SP)+, 


fs:adr 


SAVE FISRT ADDRESS OFF THE STACK. 


1456 


006004 








30S: 














006004 


004567 


015502 








JSR 


R5, 


SPRINT 


GO PRINT OUT THE FOLLOWING MESSAGE. 


1458 


005010 


026456 










.WORD 


CONST 




ADDRESS OF MESSAGE TO BE TYPED 


1 459 




















"SELECT CC\STANr: " 


1460 












THE 


NEXT TWO INSTRUCTIONS PROVIDE AN IN'.ERFACE TO THE SRDOCT ROUTINE 


1461 












WIHTOLT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 


14 52 


C12 


01 3746 


1 77', 76 








MOV 


^A- PSW . 


-{SP) 


PUT THE PROCESSOR STATUS ON THE STACK 


1463 


tO.CIo 


CC4767 


015316 








USR 


PC. 


SRDOCT 


GO TO THE 5U3R0^^TINE 


14 54 


' : .0 2 ' 


0: 26c7 


1 73562 








MOV 


(SP)+, 


.CONST 


SAVE THE CCNSTANT 


1465 


)C c^u 


5767 


1 72554 




MANUL2: 


TST 


M.MAVA 




CHECK IF MHrvl MGMT IS AVAILABLE- 


1 466 




CO 1406 










BEQ 


31S 




BR IF NO MEW MGMT. 


1467 




L 27b7 


1 60000 


173532 






BIC 


*1cO0OO, 


LSTADR 


ADJUST LSTADR TO VIRTUAL BANK 0. 


1468 


^ k L '^42 


I 27:7 


0400C0 


173524 






ADD 


fr4C000 , 


LSTADR 


. . .VIRTUAL BANK 7. 


1 469 


^5 J 


L',j:^7&7 


000002 


173516 


31 S: 




ADD 


f2. 


LSTADR 


ADJUST LAS'' ADDRESS UP ONE WORD, 


1470 




w 2767 


000001 


173510 






BIC 


ffSITO. 


LSTADR 


MAKE SURE IT IS A WORD ADDRESS. 


1 471 




^ ^i-c? 


017777 


173502 






BIT 


fr-MASK4K. 


LSTADR 


CHECK IF LAST ADR IS ON BANK BOUNDRY. 


1472 


vCu. i 2 


CC10C4 










BNE 


START1 




BR IF NOT CN BOuNDRY . 


1473 




C O 5067 


1 73502 








CLR 


LACVAP 




CLEAR OUT THE LAST ADDRESS MAP. 


1474 


0061 CO 


0050G7 


1 735ua 








CLR 


LADMAP+2 




1475 























C20MCF0 0-ia4K 
C20MCF.P11 14- 
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M£eR PARAMkTER SELECTION 
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ECTION 
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/*\:/*\:/*\:/*\:/*\:/*\:/*\:/*\:/>\:/'\:/*\:/''\--/*\:/*\:/n:/*\:/*\:/A: 

* THE REST OF THE PROGRAM IS POSITION INDEPENDENT CODE. SO THAT IT CAN EXJCUTE PROPERLY WHEN THE PROGRAM HAS BEEN RELO 
THIS IS DONE 50 THAT THE FIRST TWO BANKS OF MEMORY CAN BE EXERCISED IN EXACTLY THE SAME MANNER AS THE REST OF MEMORY 
/:\-/:\*/:\*/!\*/:\*/;\*/:\*/:\*/: \*/:\*/:\*/:\* 





:/:\*/; 


\*/:\*/ 


'\*/:\*/ 


1482 


0061 04 


01 6706 


173512 


1483 


0061 10 


0C5767 


17:^502 


1484 


0061 1 4 


0C1403 




1485 


0061 16 


05277t 


000014 


1486 


0C61 24 


01 :?767 


906104 


1487 


0061 32 


0f^6767 


172442 


1488 


006140 


004767 


01 137^ 


14^9 


005144 


005767 


172436 


1490 


006150 


00H06 




1491 


006152 


032737 


000001 


1492 


006160 


001002 




1493 


006162 


004767 


0061 12 



START1 : 



173474 
17^754 
172746 



MOV 
TST 

en 

BIS 
MOV 
ADD 
USR 
TST 
BEO 
BIT 
BNE 
USR 



.STACK, SP 

CASFLG 

1$ 

#14, @CASREG 
#START1 .SLPADR 
RELOCF, SLPADR 



PC, 

MMAVA 

TST1 

#BITO, 

TST1 

PC. 



MAMF 



•.SET STACK POINTER 
;CHECK CACHE PRESENT FLAG 
; BRANCH IF NO CACHE 
;TURN OFF CACHE 
; INIT LOOP ADDRESS. 

;SET UP MEMORY PARITY ERROR VECTOR 

; CHECK FOR f.'EMORY MANAGEMENT AVAILABLE. 

: BRANCH IF NO MEM MGMT. 

; CHECK IF MEM MGMT ENABLED. 

;BR IF MEM VGMT ENABLED. 

;SET UP MEM MGMT REGISTERS. 



CZOMCFO 0-124K MEMORY EXERCISIR, 
CZ0MCF.P11 14-FEB'-78 08:i9 
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^ECTIQiN i: MEMORY ADDRESS TESTS 



1494 








.SBTTL SECTION 


1 : 


MEMORY 


ADDRESS TESTS 




1495 






















1496 










*TE$T 1 


WRITE VALUE OF 


MEMORY ADDRESS INTO MEMORY 




1497 












RO = DATA WRITTEN INTO 


MEMORY (SHOULD BE) 




1498 












R1 = D 


ATA READ 


FROM MEMORY (WAS) 




1499 










*■ 


R2 S5 \ 


IRTUAL ADDRESS 






1500 












R3 s NOT USED 








1501 












R4 a > 


11 USED 








1502 












R5 BLOCK BOUNDRY BIT 


MASK. 




1503 












• « >K)t< l|< >« ^ «: * 






1504 


0051 66 






TST1 












1505 


006165 


004567 


012436 






JSR 


R5, 


iSCOPE 


;G0 TO SCOPE ROUTINE. 




1506 


0061 72 


00OQC1 








.WORD 


1 




; MINIMUM BLOCK SIZE OF 1 WORDS 




1507 
















; REQUIRED FOR THIS TEST. 




1508 


006174 


000167 


005604 






JMP 


TST32 




;SKIP TO NEXT TEST WHEN LESS THAN ONE 


BLOCK 


1509 


















; AVAILABLE FOR TEST. 




1510 












UPWARDS WORD ADDRES 


SING. 






151 1 


006200 


0Q4467 


006222 






USR 


R4, 


iNlTMM 


; INITIALIZE THE MEMORY ADDRESS POINTERS. 


1512 


006204 


004767 


007644 


1$; 


JSR 


PC, 


PHYADR 


;GET PHYSICAL ADDRESS INTO RO 




1513 


006210 


01 0012 




2S: 


MOV 


RO, 


(R2) 


;WRITE VALUE OF A'ORESS INTO ADDRESS 




1514 


0Q5212 


01 2201 








MOV 


(R2)+, 


R1 


;GET THE DATA FROM MEMORY UNDER TEST. 




1515 


006214 


0200C1 








CMP 


RO, 


R.I 


•.COMPARE THE CHECK WORD WITH THE DATA 


READ. 


1516 


006216 


001405 








BEQ 


65S 




; BRANCH OVER ERROR CALL IF GOOD DATA. 




1517 


006220 


004767 


012142 


64$: 


JSR 


PC. 


SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 




1518 


006224 


PC4767 


013410 






JSR 


PC, 


SERROR 


;*** ERROR *** (GO TYPE A MESSAGE) 




1519 


006230 


000002 








.WORD 


2 




;ERROR TYPE CODE. 




1520 


006232 






65$: 












1521 


C06232 


062700 


000002 






ADD 


^2, 


RO 


;ADD #2 TO PHYSICAL ADDRESS 




1522 


C06236 


030502 








BIT 


R5, 


R2 


; CHECK FOR END OF A BLOCK. 




1523 


006240 


001 363 








BNE 


2$ 




; BRANCH IF MORE IN CURRENT BLOCK. 




1524 


006242 


004767 


006736 






JSR 


PC, 


MMUP 


;FIND NEXT BLOCK AND LOOP TO 1$. 




1525 






















1526 












CHECK THAT 


VALUE OF 


MEMORY 


ADDRESS WAS WRITTEN CORRECTLY 




1527 












DOWNWARDS 


WORD ADDRESSING. 






1528 


006246 


004467 


O06612 






JSR 


R4, 


INITDN 


; INITIALIZE THE MEMORY ADDRESS POINTERS, 


1529 


006252 


004767 


007576 


3S: 


JSR 


PC, 


PHYADR 


;GET PHYSICAL ADDRESS INTO RO 




1530 


006255 


162700 


000002 


4S: 


SUB 




RO 


;DEC DATA BY 2 




1531 


0C6262 


0': 42C1 








MO" 


-(R2), 


R1 


;GET THE DATA FROM MEMORY 




1532 


006264 


or.oooi 








CMP 


RO , 


Rl 


; CO:."FARE THE CHECK WORD WITH THE DATA 


READ. 


1533 


006265 


0ai405 








BEO 


67$ 




; BRANCH OVEP ERROR CALL IF GOOD DATA. 




1534 


C05270 


00 4767 


012046 


66$: 


JSR 


PC, 


SPRNTO 


•.SET UP VALUES FOR ERROR PRINTING. 




1535 


006274 


C04767 


013340 






JSR 


PC, 


SERROR 


;*** ERROR *** {GO TYPE A MESSAGE) 




1536 


0063C0 


OG0002 








.WORD 


2 




; ERROR TYPE CODE. 




1537 


006302 






67$: 












1538 


006302 


C30502 








BIT 


R5, 


R2 


;CHECK FOR END OF A BLOCK. 




1539 


006304 


091364 








BNE 


4$ 




; BRANCH IF MORE IN CURRENT BLOCK. 




1540 


006306 


004767 


007362 






JSR 


PC, 


MMDOWN 


;FIND NEXT BLOCK AND LOOP TO $TAG1 . 





CZOMCFO 0-1 24K r.'EMORY EXERCISER, 
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WRITii VALUE OF MEr»',CRY AODRESS INTO MEMORY 



1 541 
1542 
1543 
1544 
1545 
1546 
1 547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
15B3 
1584 
1585 
1586 
1587 



006312 
006312 
006315 

005320 
006324 
006330 
006332 
005334 
006336 
006340 



006344 
006350 
006354 
006356 
006360 
006362 
006364 
006370 
006374 
006376 
006376 
006400 
006402 



004567 
000000 

00 4467 
004767 
1 1 0022 
005200 
030502 
001374 
004767 



0044u7 
004767 
005300 
1 1 4201 
120001 
001405 
004767 
0. 4767 
000003 

030502 
001365 
004767 



006102 
007524 



006514 
007500 



011752 
013244 



2 WRITE VALUE OF MEMORY ADDRESS INTO MEMORY 

RO = DATA WRITTEN INTO MEMORY (SHOULD BE) 
R1 = DATA READ FROM MEMORY (WAS) 
R2 = VIRTUAL ADDRESS 
R3 « NOT USED 
R4 a NOT USED 

R5 a BLOCK BOUNDRY BIT MASK. 



dSR RE 

.wr"o 

UPWARDS BYTE ADDRESSING. 



JSR 

JSR 

MOVB 

INC 

BI" 

BNE 

JSR 



PC, 
RO, 



2S 
PC, 



INITMM 
PHYADR 
(R2) + 



CHECK THAT VALUE OF MEMORY 
DOWNWARDS BYTE ADDRESSING. 



;G0 TO SCOPE ROUTINE. 

!N0 MINIMUM BLOCK SIZE REQUIRED THIS TEST. 

; INITIALIZE THE MEMORY ADDRESS POINTERS. 

;GET PHYSICAL ADDRESS INTO RO 

IWRITE VALUE OF ADDRESS INTO ADDRESS 

•,ADD ONE TO PHYSICAL ADDRESS 

ICHECK FOR END OF A BLOCK. 

; BRANCH IF MORE IN CURRENT BLOCK. 

;FIND NEXT BLOCK AND LOOP TO 1$. 

ADDRESS WAS WRITTEN CORRECTLY 



64$: 
65S: 



JSR 


R4, 


INITDN 


INITIALIZE THE MEMORY ADDRESS POINTERS. 


JSR 


PC, 


PHYADR 


GET PHYSICAL ADDRESS INTO RO 


DEC 


RO 




DEC DATA BY 1 


MOVB 


-(R2) . 


R1 


GET THE DATA FROM MEMORY 


Cl.ir'B 


RO, 


R1 


CHECK THE DATA..,LO BYTE ONL/ VALID. 


BEO 


65$ 




BRANCH OVER ERROR CALL IF GOOD DATA. 


JSR 


PC, 


SPRNTO 


SET UP VALUES FOR ERROR PRINTING. 


JSR 


PC, 


SERROR 


*** ERROR *** (GO TYPE A MESSAGE) 


.WORD 


3 




ERROR TYPE CODE. 


BIT 


R5, 


R2 


CHECK FOR END OF A BLOCK. 


BNE 


4$ 




BRANCH IF MORE IN CURRENT SLOCK. 


JSR 


PC, 


MMDOWN 


FIND NEXT BLOCK AND LOOP TO STAGi . 









WRITE 1'S COMPLEMENT VALUE OF ADDRESS INTO ADDRESS. 

3 DATA WRITTEN INTO MEMORY (SHOULD BE) 

= DATA READ FROM MEMORY (WAS) 

= VIRTUAL ADDRESS 

= NOT USED 

= NOT USED 

= BLOCK BOUNDRY BIT MASK. 



1588 


006406 


004567 


012215 




JSR 


R5, 


SSCOPE 


■.GO TO SCOPE ROUTINE. 


1589 


006412 


000000 






.WORD 







;N0 MINIMUM BLOCK SIZE REQUIRED THIS TEST 


1590 










DOWNWARDS 


WORD 


ADDRESSING. 




1591 


006414 


004467 


006444 




JSR 


R4, 


INITDN 


; INITIALIZE THE MEMORY ADDRESS POINTERS. 


1592 


006420 


0G4767 


007430 


is: 


JSR 


PC, 


PHYADR 


;GET PHYSICAL ADDRESS INTO RO 


1593 


006424 


005100 






COM 


RO 




; COMPLEMENT THE ADR 


1594 


006426 


062700 


OOOOui 


2$: 


ADD 


#2, 


RO 


•,+2 TO DATA— ADR GOES DOWN SO COM GOES UP 


1595 


006432 


01 0042 






MOV 


RO, 


-(R2) 


;PUT DATA INTO MEMORY 


1596 


006434 


030502 






BIT 


R5, 


R2 


;CHECK FOR END OF A BLOCK. 
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16K VER 
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WRITE I'S COMPLEMENT VALUE OF ADDRESS INTO ADDRESS. 



1597 
1598 
1599 
1600 
1601 



1637 
1638 
1639 
1640 
1641 
1642 
1 643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 



006436 
005440 



001373 
004767 



1620 
1621 



006542 
Q06546 
006552 
0C6554 
0C6556 
0C6560 
006564 
006570 
006572 
C06572 
CC6574 
006576 



0C4467 
004767 
1 : 2201 
020001 
001405 
004767 
004767 
000003 

030502 
001366 
004767 



005660 
007356 



011564 
013050 



BNE 
JSR 



; BRANCH IF MORE IN CURRENT BLOCK. 
;FIND NEXT BLOCK AND LOOP TO 1$. 



CHECK COMPLEMENT DATA WRITTEN DOWN 
UPWARDS WORD ADDRESSING. 



1602 


006444 


004467 


005756 




JSR 


R4, 


INITMM 


; INITIALIZE THE MEMORY ADDRESS POINTERS. 


1603 


006450 


004767 


007400 


3$: 


JSR 


PC, 


PHYADR 


:GET PHYSICAL ADDRESS INTO RO 


1604 


006454 


005100 






CC .1 


RO 




; COMPLEMENT IT 


1605 


006455 






4$: 










1606 


006456 


01 2201 






MOV 


(R2)+. 


R1 


;GET THE DATA FROM MEMORY UNDER TEST, 


1607 


006460 


O'OOOl 






CMP 


RO, 


R1 


; COMPARE THE CHECK WORD WITH THE DATA READ 


1608 


005452 


0G1405 






BEO 


65$ 




; BRANCH OVER ERROR CALL IF GOOD DATA. 


1609 


00S464 


0C4767 


01 1676 


64$: 


JSR 


PC, 


SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 


1610 


006470 


004767 


013144 




JSR 


PC. 


SERROR 


;*** ERROR *** (GO TYPE A MESSAGE) 


1611 


006474 


000002 






.WORD 


2 




lERROR TYPE CODE. 


1612 


005476 






65$: 










1613 


006476 


162700 


000002 




SUB 




RO 


; COUNT DOWN WITH ADDRESS 


1614 


006502 


030502 






BIT 


R5, 


R2 


; CHECK FOR END OF A BLOCK. 


1615 


006504 


001364 






BNE 


4$ 




; BRANCH IF MORE IN CURRENT BLOCK. 


1616 


006506 


004767 


006472 




JSR 


PC, 


MMUP 


;FIND NEXT BLOCK AND LOOP TO 3$. 


1617 


















1618 


















1619 








!*TEST 


4 


WRITE 


BANK » INTO ALL ADDRESSES IN A 4K BANK 



RO = DATA WRITTEN INTO MEMORY (SHOULD BE) 
R1 = DATA READ FROM MEMORY (WAS) 



1622 










R2 = 


VIRTUAL ADDRESS 




1623 










R3 = 


NOT USED 






1624 










R4 = 


OT USED 






1625 










R5 = 


B-OCK BOUNDRY BIT 


MASK. 


1626 


















1627 


006512 






TST4 










1628 


006512 


004567 


012112 




JSR 


R5, 


SSCOPE 


;G0 TO SCOPE ROUTINE. 


1629 


006516 


000000 






.WORD 




;N0 MINIMUM BLOCK SIZE REQUIRED THIS TEST 


1630 










UPWARDS 


BYTE ADDRESSING. 




1631 


006520 


004467 


005702 




JSR 


R4, 


INITMM 


; INITIALIZE THE MEMORY ADDRESS POINTERS. 


1632 


006524 


004767 


007400 


IS: 


JSR 


PC, 


BANKNO 


;GET THE BANK NUMBER INTO RO 


1633 


006530 


1-;0022 




2$: 


MOVB 


RO, 


(R2) + 


•.WRITE BANK # INTO ALL ADDRESSES 


1634 


006532 


030502 






BIT 


R5, 


R2 


;CHECK FOR END OF A BLOCK. 


1635 


006534 


001375 






BNE 


2$ 




: BRANCH IF MORE IN CURRENT BLOCK. 


1636 


006536 


004767 


006442 




JSR 


PC, 


MMUP 


;FIND NEXT BLOCK -ND LOOP TO 1$. 



CHECK THAT DATA WRITTEN ABOVE CAN BE READ 
UPWARDS BYTE ADDRESSING. 



3$: 
4S: 



64$. 
65$: 



JSR 


R4, 


INITMM 


INITIALIZE THE MEMORY ADDRESS POINTERS. 


JSR 


PC, 


BANKNO 


GET THE BANK NUMBER INTO RO 


MOVB 


(R2)+, 


R1 


READ THE DATA OUT OF MEMORY 


CMP 


RO, 


R1 


COMPARE THE CHECK WORD WITH THE DATA READ 


BEO 


65$ 




BRANCH OVEP ERROR CALL IF GOOD DATA. 


JSR 


PC, 


SPRNT1 


SET UP VALUES FOR ERROR PRINTING. 


JSR 


PC, 


SERROR 


*** ERROR *** (GO TYPE A MESSAGE) 


-WORD 


3 




ERROR TYPE CODE. 


BIT 


R5, 


R2 


CHECK FOR END OF A BLOCK. 


BNE 


4$ 




BRANCH IF MORE IN CURRENT BLOCK. 


JSR 


PC, 


MMUP 


FIND NEXT BLOCK AND LOOP TO 3$. 
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1653 
1654 
1655 
1656 
1657 
1658 
1659 



16K VER 
T5 



MACY ■ 1 
WRI TE 
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I ' S COr/lPLEMENT OF BANK A . 



5 WRITE 1'S CCr^^PLEMENT OF BANK H. 

RO = DATA WRITTEN INTO ivIEMORY (SHOULD BE) 
R1 = DATA READ FROM MEMORY (WAS) 
R2 = VIRTUAL ADDRESS 
R3 = NOT USED 
= NOT USED 



1660 










R5 = 


-OCK 


BOUNDRY BIT 


MASK . 


1661 
















*»,******•***♦**♦***+*************** 


1662 


006502 






TST5: 










006602 


00 4567 


1 2022 




JSR 


R5, 


$5CCPE 


"GO TO SCOPE ROUTINE. 


1554 


003606 


ocoooo 






.WORD 







•NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 


1665 










DOWNWARDS 


BYTE 


ADDRESSING. 




1666 


006610 


004467 


0062^ 3 




USR 


R4, 


INITDN 


; INITIALIZE THE MEMORY ADDRESS POINTERS. 


1667 


006614 


0C4767 


007310 


1$: 


JSR 


PC. 


BANKNO 


;GET THE BANK NUMBER INTO RO 


1668 


006620 


005100 






COM 


RO 




;l'S COMPLEr.-ENT OF BANK a 


1689 


006622 


1 1 0042 




as: 


MOVB 


RO, 


-(R2) 


;PUT 1'S COM OF BANK it INTO MEMORY 


1670 


006524 


030502 






BIT 


R5, 


R2 


;CHECK FOR END OF A BLOCK. 


1671 


005626 


001375 






BNE 


2$ 




; BRANCH IF MORE IN CURRENT BLOCK. 


1672 


006530 


004767 


007040 




JSR 


PC, 


MMDOWN 


;FIND NEXT BLOCK ',ND LOOP TO 1$. 


1673 


















1674 










CHECK THAT 


DATA 


WRITTEN CAN 


BE READ. 


1675 










DOWNWARDS 


BYTE 


ADDRESSING. 




1676 


005534 


004467 


006224 




JSR 


R4. 


INITDN 


; INITIALIZE THE MEMORY ADDRESS POINTERS. 


1677 


006540 


004767 


007264 


3S: 


JSR 


PC, 


BANKNO 


;GEr THE BANK # INTO RO 


1678 


006644 


C051CO 






COM 


RO 




;S£T 1'S COMPLEMENT OF BANK # 


1679 


006646 


1 1 4201 




4S: 


MOVB 


-(R2), R1 


; READ DATA OUT OF MEMORY 


1680 


006550 


020001 






CW.P 


RO, 


R1 


; COMPARE THE CHECK WORD WITH THE DATA READ 


1681 


006652 


001405 






BEO 


65$ 




; BRANCH OVER ERROR CALL IF GOOD DATA. 


1682 


006654 


004767 


011462 


64$: 


JSR 


PC, 


SPRNTO 


;SET UP VALUES FOR ERROR PRINTING. 


1683 


006660 


004767 


012754 




JSR 


PC, 


SERROR 


;*** ERROR *** (GO TYPE A MESSAGE) 


1684 


006654 


Qooooa 






.WORD 


3 




;ERRO^ TYPE CODE. 


1685 


006665 






65$: 










1686 


006666 


030502 






BIT 


R5, 


R2 


; CHECK FOR END OF A BLOCK. 


1687 


006670 


001366 






BNE 


4$ 




•.BRANCH IF MORE IN CURRENT BLOCK. 


1688 


006672 


004767 


006776 




JSR 


PC, 


MMDOWN 


;FIND NEXT BLOCK AND LOOP TO STAGI . 
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WORST CASE NOISE TESTS 



1689 








1690 








1691 








1692 








1693 








1694 








1695 








1696 








1697 








1698 








1699 








1700 








1701 








1702 








1703 








1 704 


006676 






1705 


006676 


004567 


01 1726 


1706 


006702 


ocooco 




1707 


006704 


01 6700 


172700 


1708 


006710 


004467 


005512 


1709 


006714 


01 0022 




1710 


006716 


030502 




1711 


006720 


P01375 




1712 


0067i22 


004707 


006256 


1713 








1714 








1715 








1716 








1717 








1718 


006726 






1719 


006726 


Q 4567 


011676 


1720 


006732 


ooooco 




1721 


005734 


01 6700 


172650 


1722 


006740 


004467 


005462 


1723 


0C6744 






1724 


006744 


0-2201 




1725 


0C6745 


020001 




1726 


006750 


0014C5 




1727 


006752 


004767 


011410 


1 728 


006756 


004767 


012656 


1 729 


006762 


000004 




1730 


006764 






1 731 


006764 


030502 




1732 


006766 


001 366 




1733 


006770 


004767 


006210 


1 734 








1 735 








1 736 








1737 


006774 


032777 


000400 


1 738 


007002 


C01416 




1739 


007004 


01 7746 


172130 


1740 


007010 


042716 


177740 


1741 


0C7014 


022726 


000006 


1742 


007020 


001007 




1743 


007022 


162767 


000001 


1744 


007030 


162767 


000030 



.SBTTL SECTION 2: 



WORST CASE NOISE TESTS 



THESE TESTS WRITE MEMORY WORST CASE NOISE TEST PATTERNS THROUGHOUT 
MEMORY AND CHECK THAT THEY CAN BE WRITTEN AND READ. 



WRITE A CONSTANT INTO MEMORY. 
THE CONSTANT IS USER SELECTABLE (DEFAULT = 0). 
= DATA WRITTEN INTO MEMORY (SHOULD BE) 
= DATA READ FROM MEMORY (WAS) 
= VIRTUAL ADDRESS 
- NOT USED 
= NOT USED 

= BLOCK BOUNDRY BIT MASK. 



JSR 


R5, 


SSCOPE 


;G0 TO SCOPE ROUTINE. 


.WORD 







;N0 MINIMUM BLOCK SIZE REQUIRED THIS TEST 


MOV 


.CONST , 


RO . 


; GET USER CONSTANT ' 


JSR 


R4, 


INITMM 


; INITIALIZE THE MEMORY ADDRESS POINTERS. 


MOV 


RO, 


(R2) + 


; WRITE CONSTANT INTO MEMORY. 


BIT 


R5, 


R2 


;CHECK FOR END OF A BLOCK. 


BNE 


1$ 




■.BRANCH IF MORE IN CURRENT BLOCK. 


JSR 


PC, 


MMU P 


;FIND NEXT BLOCK AND LOOP TO 1$. 











i^TEST 7 
► IMPOR-, 



172052 
172050 



BIT 
BEO 
MOV 
BIC 
CMP 
BNE 
SUB 
SUB 



READ MEMORY AND COMPARE TO CONSTANT. 

THIS TEST SHOULD NOT BE RUN WITHOUT FIRST RUNNING TEST $TN. 



;G0 TO SCOPE ROUTINE. 

;N0 MINIMUM BLOCK SIZE REQUIRED THIS TEST. 
;GET USER CONSTANT 

INITIALIZE THE MEMORY ADDRESS POINTERS. 

•.GET THE DATA FROM MEMORY UNDER TEST. 

;COMPARE THE CHECK WORD WITH THE DATA READ. 

; BRANCH OVER ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 
;ERRQR TYPE CODE. 

; CHECK FOR END OF A BLOCK. 
; BRANCH IF MORE IN CURRENT BLOCK. 
;FIND NEXT BLOCK AND LOOP TO 1$. 
IS SELECTED THRU THE SWR. 
BACK AND FORTH BETWEEN TESTS 6 AND 7 
N SW01 , SW02, AND SWOB ARE SET. 
CHECK THAT LOOP ON TEST BIT SET 
BRANCH IF NOT LOG? ON TEST 
GET SWITCH REGISTER DATA. 
CLEAR NON-TEST-NUMBER SWITCHS. 
CHECK IF TEST 6 IN SWITCHES. 
BRANCH IF NOT TEST 6 
RESET TEST NUM 
RESET LOOP ADR 



JSR 


R5, 


SSCOPE 


.WORD 







MOV 


.CONST , 


RO 


JSR 


R4, 


INITMM 


MOV 


(R2)+, 


R1 


CMP 


RO, 


R1 


BEO 


65$ 




JSR 


PC, 


5PRNT2 


JSR 


PC, 


SERROR 


.WORD 


4 




BIT 


R5. 


R2 


BNE 


1$ 




JSR 


PC. 


MMUP 



SPECIAL CHECK TO SEE IF TEST 
ALLOWS THE OPERATOR TO SWITCH 
BY SIMPLY nOGGLlNG" SWOO WH 



A SWOB. @SWR 
TST10 

©SWR. -(SP) 
#177740, (SP) 
#6. (SP)+ 
TST10 

#1. STSTNM 
J^TST7-TST6,$LPADR 



CZOMCFO 


0-1 24K N EMCRY 


EXERCISER, 


16K VEP; 


MAfYI 


1 30A(1052) 


20-FEe 


-78 07:56 PAGE 38 


C20MCF . 


PI 1 


14-FEB-78 


08: 19 


T7 


REAP 


MEMORY AND 


COMPARE 


TO CONSTANT. 


1 745 
1 746 


007036 


000722 






BR 


TST6A 




;G0 TO TEST 6 


1 747 








. . ^ * ^, ^ ^ 










1748 








;-TEST 


10 


WORSc CASE NOISE 


(PARITY) WORD TESTING 


1749 










; * CHECK MEMORY 


WITH A 


SERIES OF PATTERNS 


1750 








;■**♦** 


1* !» ■» * « 41 








1751 


007040 






TSTIO: 










1752 


007040 


004567 


01 1564 




jc : 


R5, 


SSCOPE 


;G0 TO SCOPE ROUTINE. 


1753 


007044 


000000 






. WORD 







;N0 MINIMUM BLOCK SIZE REQUIRED THIS TEST. 


1754 


00704S 


01 6704 


172562 




MOV 


.MPPAT, 


R4 


: INITIALIZE PATTERN TABLE POINTER 


1 755 


007052 


0':4767 


01 0560 


1$: 


JSR 


PC, 


CKPMER 


J CHECK FOR NON-TRAP PARITY MEMORY ERRORS. 


1756 


007056 


01 2400 






MOV 


(R4)+, 


RO 


;GET THE DATA PATTERN. 


1757 


007060 


001420 






BEO 


TST1 1 




; iSR IF END OF TABLE. 


1758 


007062 


004467 


005340 




JSR 


R4, 


INI iiVlM 


; INITIALIZE THE MEMORY ADDRESS POINTERS. 


1759 


007066 


01 0012 




2$: 


MOV 


RO, 




;PUT DATA PATTERN INTO MEMORY. 


1760 


007070 


01 2201 






MOV 


(R2)4., 


R1 


;GET THE DATA FROM MEMORY UNDER TEST. 


1761 


007072 


020001 






CMP 


RO, 


R1 


; COMPARE THE CHECK WORD WITH THE DATA READ 


1762 


007074 


001405 






BEO 


65$ 




; BRANCH OVER ERROR CALL IF GOOD DATA. 


1763 


007076 


0C4767 


011264 


64S: 


JSR 


PC, 


SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 


1754 


007102 


0G4767 


012532 




JSR 


PC, 


SERRQR 


;*** ERROR •*« (GO TYPE A MESSAGE) 


1765 


007106 


0C0004 






.WORD 


4 




;ERROR TYPE CODE. 


1766 


0071 10 






S5S: 










1767 


0071 10 


030502 






BIT 


R5, 


R2 


;CHECK FOR END OF A BLOCK. 


1768 


0071 12 


001365 






BNE 


2$ 




; BRANCH IF MORE IN CURRENT BLOCK. 


1769 


0071 14 


004767 


006064 




JSR 


PC, 


MMUP 


;FIND NEXT BLOCK AND LOOP TO 2$. 


1770 


007120 


000754 






BR 


1$ 




;BR BACK TO DO NEXT PATTERN 



CZOMCFO 


0-1 24 K EMORY 


EXERCI 


CZQMCF. 


P1 1 


4-FEB-78 


08: 19 


1771 








1772 








1773 








1774 


007122 






1775 


007122 


0C4567 


011502 


1776 


0071 26 


000000 




1777 


0071 30 


01 2700 


177777 


1778 


0071 34 


0C4767 


007030 


1779 


0071 40 


CC4467 


005252 


1780 


007144 


0C0241 




1781 


007146 


0C4767 


007036 


1782 


007 1 52 


01 6201 


177776 


1783 


0071 56 


103402 




1784 


0071 60 


020001 




1785 


C07162 


001405 




1786 


007164 


004767 


01 1 176 


1787 


007170 


0C4767 


012444 


1788 


0071 74 


000005 




1789 


0071 76 






1790 


007176 


030502 




1791 


007200 


001361 




1792 


007202 


004767 


005776 


1793 








1794 








1795 








1796 








1797 


007206 






1798 


007206 


004567 


011416 


1799 


007212 


000000 




1800 


007214 


005000 




1801 


007215 


004767 


006746 


1802 


007222 


0C4467 


005200 


1803 


00T226 


C00261 




1804 


007230 


004767 


006754 


1605 


007234 


01 6201 


177776 


1806 


007240 


1C30C2 




1807 


007242 


020001 




1808 


007244 


C01405 




1809 


007246 


004767 


011114 


1810 


007252 


004767 


012362 


181 1 


007256 


000005 




1812 


007260 






1813 


007260 


030502 




1814 


007262 


0013"-1 




1815 


007264 


004767 


005714 



16K VER 
Til 



ROTATE A "0" BIT THROUGH A FIELD OF ONES. 
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ROTATE A "0" BIT THROUGH A FIELD OF ONES. 



JSR 

. WORD' 

MOV 

JSR 

JSR 

CLC 

JSR 

MOV 

BCS 

CMP 

BEO 

JSR 

JSR 

.WORD 



R5, 




PC. 

-2(R2) 

63$ 

RO, 

64$ 

PC. 

PC, 



SETCON 
INITMM 



ROTATE 
R1 



SPRNT2 
SERROR 



BIT 
BNE 
JSR 



JSR 


R5, 


.WORD 





CLR 


RO 


JSR 


PC, 


JSR 


R4, 


SEC 




JSR 


PC, 


MOV 


-2(R2) 


BCC 


63$ 


CIY.P 


RO, 


BEO 


64S 


JSR 


PC, 


JSR 


PC, 


.WORD 


5 


BIT 


R5, 


BNE 


1$ 


JSR 


PC, 



;G0 TO SCOPE ROUTINE. 

;N0 MINIMUM BLOCK SIZE REQUIRED THIS TEST. 
:SET CHECK WORD 

;PUT THE CONTENTS OF RO IN ALL MEMORY. 
; INITIALIZE THE MEMORY ADDRESS POINTERS. 
-.CLEAR CARRY BIT IN PSW 

;GET RESULT 

;BRANCH IF 'C BIT WAS SET 

;CD.-V1PARE THE CHECK WORD WITH THE DATA READ. 

; BRANCH OVER ERROR CALL IF GOOD DATA. 

;SET UP VALUES FOR ERROR PRINTING. 

;*** ERROR *** (GO TYPE A MESSAGE) 
;ERROR TYPE CODE. 

; CHECK FOR END OF \ BLOCK, 

; BRANCH IF MORE IN CURRENT BLOCK. 

;FIND NEXT BLOCK AND LOOP TO 1$. 



BIT THROUGH A FIELD OF ZEROS 



GO TO SCOPE ROUTINE. 

NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 
SET CHECK WORD 
SETCON ;PUT THE COfjTENTS OF RO IN ALL MEMORY 
INITMM ; INITIALIZE THE MEMORY ADDRESS POINTERS. 
SET 'C BIT IN PSW 
GO ROTATE ' 1 ' BIT 
GET RESULT 

BRANCH IF 'C IS CLEAR 

COV.PARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SPRNT2 ;SET U? VALUES FOR ERROR PRINTING. 
SERROR :*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

; CHECK FOR END OF A BLOCK, 
; BRANCH IF MORE IN CURRENT BLOCK. 
;FIND NEXT BLOCK AND LOOP TO 1$. 
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1816 






1817 






1818 






1819 


007270 




1820 


P07270 


004567 


1821 


007274 


000777 


1822 






1823 


007276 


000167 


1824 






1825 


007302 


0Q5OO0 


1826 


0073Q4 


Ql 2703 


1827 


007310 


004467 


1826 


007314 


0O4767 


1 829 


007320 


03050? 


1830 


Q07322 


001374 


1831 


007324 


004767 


1832 






1833 






1834 






1835 






1836 


007330 


0050CO 


1837 


007332 


004467 


1838 


007335 


012704 


1839 


007342 




1840 


007342 


01 2201 


1841 


007344 


020001 


1842 


007346 


Q0i4C5 


1843 


007350 


004767 


1844 


007354 


004767 


1845 


007350 


OC0007 


1846 


007362 




1847 


0C7362 


01 2201 


1848 


007364 


020001 


1849 


007366 


001405 


1850 


007370 


004767 


1851 


007374 


004767 


1852 


OQ7400 


000007 


1853 


007402 




1 354 


0074Q2 


01 ?20l 
020CC1 


1855 


C07404 


1856 


007406 


001405 


1857 


007410 


004767 


1858 


007414 


904767 


1859 


007420 


000007 


i860 


007422 




1861 


007422 


012201 


1862 


007424 


020001 


1863 


007426 


0Q14C5 


1864 


00743Q 


004767 


1865 


007434 


0C4767 


1866 


007440 


00 0007 


1867 


007442 




1868 


007442 


00^100 


1869 


007444 


O053O4 


1870 


007446 


001335 


1871 


007450 


0051 OQ 



00^070 

000100 



011012 
01??60 



010772 
01224^ 



01<?V5? 
012230 



010732 
91220Q 



3 XOR 9 TEST PATTERN. 











USR 


R5, 


SSCOPE 


•,G0 TO SCOPE ROUTINE. 


.WORD 


777 




;MINIiVIUM BLOCK SIZE OF 256. WORDS 








; REQUIRED FOR THIS TEST. 


UMP 


TST14 




;5KIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 








; AVAILABLE FOR TEST. 


Cl-R 


RO 




;SET UP TEST DATA 


MOV 


#-1 . 




;SET COM DATA REG 


gsr 


R4, 


IN|TMM 


; INITIALIZE THE PvlEMORY ADDRESS POINTERS. 


J5R 


pq, 


W3X9 


-.WRITE 256. WORD BLOCK WITH 3 XOR 9 PAT. 


8n 


R5. 


R2 


; CHECK FOR END OF A BLOCK. 


BNE 


1$ 




; BRANCH IF TORE IN CURRENT BLOCK. 


gsR 


PC. 


f.'MUP 


;FIND NEXT BLOCK AND LOOP TO 1$. 



CHECK 



TEST PATTERN WRITTEN ABOVE 



11$; 
12£: 



§4$; 
65S: 

57$ ! 

68$: 
69$! 

70$: 
71 S! 



CUR 


RO 




;SET CHECK WORD 






JSR 


R4, 


INITMM 


; INITIALIZE THE MEMORY ADDRESS POINTERS. 


MOV 


<!'64, , 


R4 


;SET 256. WORD COUNTER 




MOV 


(R2)+, 


R1 


;GET THE DATA FROM 


MEMORY UNDER TEST. 




CMP 


RO, 


R1 


; COMPARE THE CHECK 


WORD WITH THE DATA 


READ 


BEO 


65$ 




•.BRANCH OVER ERROR 


CALL IF GOOD DATA. 






PC, 


SPRNT2 


;SET UP VALUES FOR 


ERROR PRINTING. 




JSR 


PC, 


SERROR 


;*** ERROR *♦* (GO 


TYPE A MESSAGE) 




.WORD 


7 




;ERROR TYPE CODE. 






MOV 


(R2)+. 


R1 


;GET THE DATA FROM 


MEMORY UNDER TEST. 




CMP 


RO. 


R1 


; COMPARE THE CHECK 


WORD WITH THE DATA 


READ 


BEQ 


67$ 




; BRANCH OVEP ERROR 


CALL IF GOOD DATA. 




USR 


PC, 


sp,;nt2 


;SET UP VALUES FOR 


ERROR PRINTING. 




USR 


PC, 


SERROR 


;*** ERROR *** (GO 


TYPE A MESSAGE) 




.WORD 


7 




;ERROR TYPE CODE. 






MOV 


(R2)+. 


R1 


;GET THE DATA FROM 


MEMORY UNDER TEST. 




CMP 


RO. 


R1 


•.COMPARE THE CHECK 


WORD WITH THE DATA 


READ 


BEQ 


69$ 




; BRANCH OVEP ERROR 


CALL IF GOOD DATA. 




USR 


PC, 


SPRNT2 


;SET UP VALUES FOR 


ERROR PRINTING. 




JSR 


PC, 


SERROR 


ERROR (GO 


TYPE A MESSAGE) 




.WPRD 


7 




;ERROR TYPE CODE. 






MOV 


(R2J+. 


R1 


:GET THE DATA FROM 


MEMORY UNDER TEST, 




CMP 


RO, 


R1 


; COMPARE THE CHECK 


WORD WITH THE DATA 


READ 


BEQ 


71$ 




; BRANCH OVER ERROR 


CALL IF GOOD DATA. 




USR 


PC, 


5PRNT2 


;SET UP VALUES FOR 


ERROR PRINTING. 




USR 


PC, 


SERROR 


;*+* ERROR *** (GO 


TYPE A MESSAGE) 




.WORD 


7 




: ERROR TYPE CODE. 






COM 


RO 




; COMPLEMENT CHECK WORD 




DEC 


R4 




■.DECREMENT 256. WORD COUNTER 




BNE 


12$ 










COM 


RO 




; COMPLEMENT CHECK WORD 
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1872 


O0T452 


03Q502 


1873 


0Q7454 


0Q1330 


1874 


00745^ 


0047B7 


1875 






1876 






1877 






1878 






1879 


007462 


0O5OOQ 


1880 


007464 


004487 


1881 


007470 


01 2704 


1862 


007474 


0'2703 


1883 


007500 




1884 


007500 


Ol??01 

o?ooci 


1885 


007502 


1886 


007504 


0C14Q5 


1887 


007506 


0C4767 


1888 


007512 


004767 


1889 


007516 


000007 


1890 


C07520 




1891 


007520 


005100 


1892 


007^22 


005142 


1893 


007524 


012201 


1894 


007526 


020001 


18S5 


007530 


00140^ 


1896 


007532 


004767 


1897 


007536 


0C4767 


1898 


007542 


000007 


1899 


007544 




1900 


007544 


005100 


1901 


007546 


0C5142 


1902 


007550 


Oi?2Cl 


1903 


007552 


0;=Qooi 


1904 


007554 


001405 


1905 


P07556 


004767 


1906 


007552 


004767 


1907 


007566 


000007 


1908 


007570 




1909 


007570 


0D5303 


1910 


007572 


0U1342 


1911 


007574 


005100 


1912 


007576 


005304 


1913 


007600 


001335 


1914 


007602 


0O51OO 


1915 


C07604 


03050:? 


1916 


007606 


001330 


1917 


007610 


004767 



Q106i§4 

oi^ta? 



010630 
O1207i 



0106' \ 
912052 



8JT 
BNE 
U^R 

* CHECK, COM, 

J * * • ♦ 1» * i<! t" 



R5, 
11$ 
PC. 



;CHECK FOR END OF A BLOCK. 

; BRANCH IF fv'ORE IN CURRENT BLOCK. 

;FIND NEXT BLOCK AND LOOP TO 11$. 



CHgCK, COM, CHECK 3 XOR 9 PATTERN WRITTEN ABOVE. 



QQ5370 





cn 


RO 










USR 


R4, 


INITMM 


•.INITIALIZE THE MEMORY ADDRESS POINTERS. 


21$> 


my 


#64. , 


R4 


;SET 256. WORD COUNTER 




?2$: 


MOV 


#4, 


R3 


;SET 4 WORD COUNTER 






MOV 


(R2)-*-, 


R1 


;GET THE DATA FROM MEMORY UNDER TEST. 






CMP 


RQ. 


R1 


;CO?.!PARE THE CHECK WORD WITH THE DATA 


READ 




BEO 


73$ 




; BRANCH OVEP ERROR CALL IF GOOD DATA. 




72$ 5 


USR 


PC. 


SPRNT2 


:SET UP VALUES FOR ERROR PRINTING. 




USR 


PC. 


SERROR 


;*-♦♦ ERROR (GO TYPE A MESSAGE) 






.WORD 


7 




;ERRQR TYPE CODE. 




73$? 














COM 


R0 




; COMPLEMENT CHECK WORD 






COM 


-'(R2) 




; COMPLEMENT TEST DATA 






MOV 


(R2H. 


R1 


;GET THE DATA FROM MEMORY UNDER TEST. 






ciyip 


R0. 


R1 


; COMPARE THE CHECK WORD WITH THE DATA 


READ 




,B|0 


75$ 




•.BRANCH OVEP ERROR CALL IF GOOD DATA. 




74$; 


USR 


PC. 


SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 






USR 


PC, 


SERROR 


ERROR ♦** (GO TYPE A MESSAGE) 






. WORD 


7 




; ERROR TYPE CODE. 




75$ 5 














COM 


RO 




; COMPLEMENT CHECK WORD 






COM 


^(R2) 




;COi.-PLEr/.E;NT TEST DATA 






MOV 


(R2)+, 


R1 


.•GET THE DATA FROM MEMORY UNDER TEST. 






CMP 


RO, 


R1 


;COMPARE THE CHECK WORD WITH THE DATA 


READ 




BEO 


77$ 




; BRANCH OVER ERROR CALL IF GOOD DATA. 




76$ 1 


USR 


PC, 


SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 






JSR 


PC, 


SERROR 


!*** ERROR *** (GO TYPE A MESSAGE) 






.WORD 


7 




lERROR TYPE CODE. 




77$: 














DEC 


R3 




; DECREMENT 4 WORD COUNTER 






BNE 


23$ 




;BR IF NOT DONE. 






COM 


RO 




; COMPLEMENT CHECK WORD 






DEC 


R4 




; DECREMENT 256. WORD COUNTER 






BNE 


22$ 




;BR IF NOT DONE. 






COM 


RO 




■.COMPLEMENT CHECK WORD 






BIT 


R5, 


R2 


;CHECK FOR END OF A BLOCK. 






BNE 


21$ 




; BRANCH IF f/ORE IN CURRENT BLOCK. 






USR 


PC, 


MMUP 


;FIND NEXT BLOCK AND LOOP TO 21$. 





C20MCFO 0-1 24K V EMORY EXERCISER, 
CZ0MCF.P11 14~FEB-78 08:19 



16K VER 
T14 



1918 








1919 








1 920 








1 921 


00761 4 






1 922 


007614 


0C4567 


011010 


1 923 


007620 


000777 




1 924 








1 925 


007622 


000167 


000316 


1 926 








1927 


007626 


01 2700 


1 77777 


1928 


007632 


005003 




1929 


007634 


004467 


004566 


1930 


007640 


0C4767 


006412 


1931 


007544 


020502 




1932 


007645 


001374 




1933 


007550 


004767 


005330 


1934 








1935 








1936 








1937 








1 938 








1939 


007654 


01 2700 


1 77777 


1940 


007650 


004467 


004542 


1 941 


007564 


01 2704 


0001 00 


1942 


007570 






1943 


007670 


01 2201 




1944 


007672 


020001 




1 945 


007674 


00 1 405 




1946 


007575 


004767 


01 0464 


1 947 


007702 


004767 


01 1 732 


1948 


007706 


000007 




1949 


00771 






1950 


007710 


0-, 2201 




1 951 


007712 


0200G1 




1 952 


007714 


00 1405 




1953 


00771 6 


004767 


01 0444 


1 954 


007722 


004767 


011712 


1 955 


007726 


00 0007 




1956 


007730 






1957 


007730 


01 2201 




1958 


007732 


020001 




1959 


007734 


001405 




1960 


007736 


004767 


010424 


1961 


007742 


0047'-7 


011672 


1962 


007746 


000007 




1963 


007750 






1964 


007750 


01 2201 




1965 


007752 


C20001 




1966 


007754 


001405 




1967 


007756 


004767 


010404 


1968 


007762 


0^^4767 


01 1652 


1969 


007766 


000007 




1970 


007770 






1971 


007770 


005100 




1972 


007772 


005304 




1973 


007774 


001335 
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COMPLEMENT 3 XOR 9 TEST PATTERN 



JSR 


R5, 


SSCOPE 


GO TO SCOPE ROUTINE. 


. WORd 


777 




MINIMUM BLOCK SIZE OF 256. WORDS 








REQUIRED FOR THIS TEST. 


JMP 


TST15 




SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 








AVAILABLE FOR TEST. 


MOV 


#-1 , 


RO 


SET UP TEST DATA 


CLR 


R3 




SET COM DATA REG 


JSR 


R4, 


INITMM 


INITIALIZE THE MEMORY ADDRESS POINTERS. 


JSR 


PC, 


W3X9 


WRITE 256. WORD BLOCK WITH 3 XOR 9 PAT. 


BIT 


R5, 


R2 


CHECK FOR END OF A BLOCK. 


BNE 


IS 




BRANCH IF MORE IN CURRENT BLOCK. 


JSR 


PC, 


MMUP 


FIND NEXT BLOCK AND LOOP TO 1$. 











CHECK COMPLEMENTED 3 XOR 9 TEST PATTERN WRITT=:n ABOVE. 



11$: 
12$: 



64$: 
65S: 

665 : 
67S: 

68$: 
69$: 

70S: 
71$: 









MOV 


#-1 , 


RO 


JSR 


R4, 


IMITMM 


MOV 


#64. , 


R4 


MOV 


(R2)+. 


R1 


CMP 


RO, 


R1 


BEO 


65$ 




JSR 


PC, 


SPRNT2 


JSR 


PC, 


SERROR 


.WORD 


7 




MOV 


(R2)+, 


R1 


CMP 


RO, 


R1 


BEO 


67$ 




JSR 


PC, 


SPRNT2 


JSR 


PC, 


SiERROR 


.WHRD 


7 




MOV 


(R2)+, 


R1 


CMP 


RO, 


R1 


BEO 


69$ 




JSR 


PC, 


SPRNT2 


JSR 


PC, 


SERROR 


.WORD 


7 




MOV 


(R2)+, 


R1 


cr-^ 


RO, 


R1 


BEO 


71$ 




JSR 


PC, 


SPRNT2 


JSR 


PC, 


SERROR 


.WORD 


7 




COM 


RO 




DEC 


R4 




BNE 


12$ 





SET CHECK WORD 

INITIALIZE THE MEMORY ADDRESS POINTERS. 
SET 256. WORD COUNTER 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVEP ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR •** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR ♦** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 
DECREMENT 256. WORD COUNTER 
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1974 


007776 


005100 






COM 


RO 




; COMPLEMENT CHECK WORD 


1975 


010000 


030502 






BIT 


R5, 


R2 


;CHECK FOR END OF A BLOCK. 


1976 


010002 


001330 






BNE 


11$ 




; BRANCH IF MORE IN CURRENT BLOCK. 


1977 


010004 


004767 


005174 




JSR 


PC, 


MMUP 


;FIND NEXT BLOCK AND LOOP TO 11$. 


1978 


















1979 














^ « H. * 4< >K 4 




19S0 










CHECK, COM, 


CHECK, 


COM, CHECK COMPLEMENTED 3 XOR 9 PATTERN. 


1981 


















1982 


010010 


01 2700 


177777 




MOV 


#-1 , 


RO 


;SET UP CHECK WORD. 


1983 


010014 


004467 


004406 




JSR 


R4, 


INITMM 


; INITIALIZE THE MEMORY ADDRESS POINTERS. 


1984 


01 0020 


01 2704 


000100 


21$: 


MOV 


^64. , 


P4 


;SET 256. WORD COUNTER 


1985 


010024 


01 2703 


000004 


225 : 


MO*' 


*4, 


R3 


;SET •; WORD COUNTER 


1986 


010030 






23$: 










19p7 


010030 


01 2201 






MOV 


(R2)-i-, 


R1 


•,GET THE DATA FROM MEMORY UNDER TEST. 


1938 


010032 


020001 






CMP 


RO, 


R1 


;COMPARE THE CHECK WORD WITH THE DATA READ 


1989 


010C34 


001405 






BEO 


73$ 




; BRANCH OVER ERROR CALL IF GOOD DATA. 


1990 


010036 


004767 


010324 


72$: 


JSR 


PC, 


SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 


1991 


010042 


0C4767 


01 1572 




JSl 


PC, 


SERROR 


:*♦♦ ERROR *** (GO TYPE A MESSAGE) 


1992 


010046 


000007 






.WORD 


7 




;ERROR TYPE CODE. 


1993 


010050 






73$: 










1994 


010050 


005100 






COM 


RO 




; COMPLEMENT CHECK WORD 


1995 


01 0052 


005142 






COM 


-(R2) 




; COMPLEMENT TEST DATA 


1996 


010054 


01 2201 






MOV 


(R2)+. 


R1 


;GET THE DATA FROM MEMORY UNDER TEST. 


1997 


010056 


0200^1 






CMP 


RO, 


R1 


;COMPARE THE CHECK WORD WITH THE DATA READ 


1998 


010060 


C01405 






BEQ 


75$ 




; BRANCH OVER ERROR CALL IF GOOD DATA. 


1999 


010062 


004767 


010300 


7--$: 


JSR 


PC, 


SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 


2000 


01 0066 


004767 


01 1546 




JSR 


PC, 


SERROR 


ERROR *** (GO TYPE A MESSAGE) 


2001 


010072 


000007 






.WJRD 


7 




;ERROR TYPE CODE. 


2002 


010074 






75$: 










2003 


010074 


00 5100 






COM 


RO 




; COMPLEMENT CHECK WORD 


2004 


010076 


C 5142 






COM 


-(R2) 




; COMPLEMENT TEST DATA 


2005 


010100 


01 2201 






MOV 


(R2)+. 


R1 


;GET THE DATA FROM MEMORY UNDER TEST. 


2006 


0101 02 


0200C1 






CMP 


RO, 


R1 


; COMPARE THE CHECK WORD WITH THE DATA READ 


2007 


010104 


0014C5 






BEO 


77$ 




; BRANCH OVEP ERROR CALL IF GOOD DATA. 


2008 


010106 


004767 


010254 


76$: 


JSR 


PC, 


sp.;nt2 


;SET UP VALUES FOR ERROR PRINTING. 


2009 


01011? 


0C4767 


011522 




JSR 


PC, 


SERROR 


;*** ERROR *** (GO TYPE A MESSAGE) 


2010 


010116 


0000C7 






.WORD 


7 




; ERROR TYPE CODE. 


201 1 


0101 20 






77$: 










2012 


010120 


005303 






DEC 


R3 




; DECREMENT 4 WORD COUNTER 


2013 


01 01 22 


001342 






BNE 


23$ 




;BR IF NOT DONE. 


2014 


010124 


0051 00 






COM 


RO 




■.COMPLEMENT CHECK WORD 


2015 


010126 


005304 






DEC 


R4 




; DECREMENT 256. WORD COUNTER 


2016 


01 01 30 


001335 






BNE 


22$ 




; BR IF NOT DONE. 


2017 


01 01 32 


005100 






COM 


RO 




; COMPLEMENT CHECK WORD 


2018 


010134 


030502 






BIT 


R5, 


R2 


;CHECK FOR END OF A BLOCK. 


2019 


010136 


001330 






BNE 


21$ 




;BRANCH IF MORE IN CURRENT BLOCK. 


2020 


010140 


004767 


005040 




JSR 


PC, 


MMUP 


;FIND NEXT BLOCK AND LOOP TO 21$. 



CZOMCFO 
CZQMCF . PI 1 



2021 






2022 






2023 






2024 


01 01 44 




2025 


01 01 44 


004567 


2026 


010150 


000777 


2027 






2028 


01 01 52 


00 01 67 


2029 






2030 


01 01 56 


01 2700 


2031 


01 01 62 


01 2703 


2032 


010166 


00 4467 


2033 


010172 


004767 


2034 


0101 76 


030502 


2035 


01 0200 


001374 


2036 


010202 


004767 


2037 






2038 






2039 






2040 






2041 


010206 


01 2700 


2042 


010212 


01 2703 


2043 


010216 


004467 


2044 


01 0222 


01 2704 


2045 


010226 




2046 


01 0226 


01 2201 


2047 


01 0230 


020001 


2048 


01 0232 


00 1 405 


2049 


010234 


004767 


2050 


01 0240 


004767 


2051 


01 0244 


000007 


2052 


010246 




2053 


01 0246 


0^ 220 1 


2054 


01 0250 


020001 


2055 


01 0252 


001405 


2056 


01 0254 


004767 


2057 


01 0260 


004767 


2058 


01 0264 


000007 


2059 


1 0265 




2060 


01 0266 


0-, 2201 


2061 


010270 


020001 


2062 


01 0272 


00 1405 


2063 


01 0274 


004767 


2064 


01 0300 


0047-7 


2065 


01 03C4 


000007 


2066 


010305 




2057 


01 0305 


01 2201 


2068 


01 031 


020001 


2069 


010312 


001405 


2070 


010314 


004767 


2071 


010320 


0?4767 


2072 


01 0324 


000007 


2073 


01 0326 




2074 


01 0326 


01 0045 


2075 


010330 


01 0300 


2076 


010332 


01 2603 



124K ^:£MCRY EXERCISER, 
14-FEB~78 08: 19 



000610 



000401 
177777 
004234 
006060 



000401 
1 77777 
004204 
0001 00 



01 01 26 
01 1 374 



010106 
01 1354 



010066 
01 1334 



010046 
011314 



MACY 1 
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MOD I F 


I ED 3 XOS t 


PAT t ERN 


. F R P A R I T Y M F M H r" 


* * * *■ 










f-y* n n f c T F p 


' " ' X R * 9 


PATTER N F DP PARITY MEMORY 










JSR 


R5 , 


SSCOPE 


;G0 TO SCOPE ROUFINE. 


. WORD 


777 




;MINIf»rjM BLOCK SIZE OF 256. WORDS 








; REQUIRED FOR THIS TEST. 


JMP 


TST16 




;SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 








; AVAILABLE FOR TEST. 


MOV 


/^401 , 


RO 


;SET UP PARITY "ALL ZEROS" PATTERN 


MOV 


fV - 1 , 


R3 


;SFT COM DATA REG 


dSR 


R4 , 




; INITIALIZE THE MEMORY ADDRESS POINTERS. 


JSR 


PC, 


W3X9 


; WRITE 256. WORD BLOCK WITH 3 XOR 9 PAT. 


BIT 


R5, 


R2 


; CHECK FOR END OF A BLOCK. 


BNE 


1$ 




; BRANCH IF f/ORE IN CURRENT BLOCK. 


USR 


PC , 


fvirviuP 


;FIND NEXT BLOCK AND LOOP TO 1$. 



CHECK PARITY 3 XOR 9 PATTERN WRITTEN ABOVE. 



12$: 

64$ : 

65$: 

66$: 
67$: 

68$: 
6=1$: 

70$: 















MOV 


#401 , 


RO 


;RESET PARITY "ALL 


ZEROS" PATTERN. 




MOV 


^-1 , 


R3 


■RESET PARITY ALL ONES PATTERN. 




USR 


R4 , 


INITMM 


; INITIALIZE THE MEMORY ADDRESS POINTERS. 


MOV 


//64. , 


R4 


•SET 256. WORD COUNTER 




MOV 


(R2)+, 


R1 


;GET THE DATA FROM 


MEMORY UNDER TEST. 




CKP 


RO , 


R1 


; COMPARE THE CHECK 


WORD WITH THE DATA 


READ 


BEO 


65S 




; BRANCH OVEF ERROR 


CALL IF GOOD DATA. 




USR 


PC, 


SPRNT2 


;SET UP VALUES FOR 


ERROR PRINTING. 




JSR 


PC, 


SERROR 


ERROR *** (GO 


TYPE A MESSAGE) 




.WORD 


7 




;£RROR TYPE CODE. 






MOV 


(R2)+, 


R1 


•GET THE DATA FROM 


MEMORY UNDER TEST. 




CKP 


RO, 


R1 


; COMPARE THE CHECK 


WORD WITH THE DATA 


READ 


BEO 


67$ 




BRANCH OVER ERROR 


CALL IF GOOD DATA. 




USR 


PC, 


SPRNT2 


;SET UP VALUES FOR 


ERROR PRINTING. 




USR 


PC, 


SERROR 


;■*** ERROR *** (GO 


TYPE A MESSAGE) 




. \f lRD 


7 




ERROR TYPE CODE. 






MOV 


(R2)-f, 


R1 


GET THE DATA FROM 


MEMORY UNDER TEST. 




CMP 


RO , 


R1 


CC:.;PARE THE CHECK 


WORD WITH THE DATA 


READ 


BEO 


69$ 




BRANCH OVER ERROR 


CALL IF GOOD DATA. 




USR 


PC, 


SPRNT2 


SET U? VALUES FOR 


ERROR PRINTING. 




USR 


PC, 


SERROR 


ERROR (GO 


TYPE A MESSAGE) 




. WORD 


7 




ERROR TYPE CODE. 






MOV 


(R2)+, 


R1 


GET THE DATA FROM 


MEMORY UNDER TEST. 




c: ' 


RO , 


Rl 


COMPARE THE CHECK 


WORD WITH THE DATA 


READ 


BEO 


71$ 




BRANCH OVER ERROR 


CALL IF GOOD DATA. 




JSR 


PC, 


5PRNT2 


SET UP VALUES FOR 


ERROR PRINTING. 




USR 


PC, 


SERROR 


ERROR *** (GO 


TYPE A MESSAGE) 




.WORD 


7 




ERROR TYPE CODE. 






MOV 


RO , 


-(S/ ) 


SAVE RO 






MOV 


R3 , 


RO 


PUT R3 INTO RO 






MOV 


(SP)+. 


R3 


PUT SAVED RO INTO 


R3 





CZOMCFO 


0-124 


K EMORY 


EXERCISER, 1GK VER 


MACY1 1 


30A(1052) 20-FEP 


-78 07:56 PAGE 45 




CZOMCF. 


PI 1 1 


4-FE3-78 


08:i9 T15 


MODI r I ED 3 XOR 


9 PATTERN 


FOR PARITY MEMORY 


SEO 


2077 


01 0334 


0C5304 




DEC 


R4 




COUNT 256. WORDS 




2078 


01 0336 


00 1 333 




BNE 


12$ 




BRANCH IF MORE 




2079 


01 0340 


01 0046 




MOV 


RO , 


-(SP) 


SAVE RO 




2080 


01 0342 


01 03C0 




MOV 


R3, 


RO 


PUT R3 INTO RO 




2081 


010344 


01 2503 




MOV 


(SP)+, 


R3 


PUT SAVED PO INTO R3 




2082 


01 0346. 


030502 




BIT 


R5 . 


R2 


CHECK FOR END OF A BLOCK. 




20S3 


01 0350 


001324 




BNE 


1 1$ 




BRANCH IF MORE IN CURRENT BLOCK. 




2084 


010352 


004767 


004626 


JSR 


PC, 


MMU P 


FIND NEXT BLOCK AND LOOP TO 11$. 




2085 


















2086 


















2087 








CHECK, COM, 


CHECK , 


COM, CHECK PARITY 3 XOR 9 PATTERN. 




2088 


















2089 


010355 


01 2700 


000401 


MOV 


#401 . 


RO 


SET UP PARITY "ALL ZEROS" PATTERN. 




2090 


01 0362 


01 2703 


1 77777 


MOV 




R3 


SET UP ALL ONES PATTERN. 




2091 


01 0356 


0C4467 


004034 


JSR 


R4 , 


INI TMM 


INITIALIZE THE MEMORY ADDRESS POINTERS. 


2092 


01 0372 


0^ 2704 


000100 21$ 


MOV 


^64. ,R4 




SET 255. WORD COUNTER 




2093 


01 0376 




22$ 












2094 


010376 


01 2201 




MC ■ 


(R2)+, 


Rl 


GET THE DATA FROM MEMORY UNDER TEST. 




2095 


01 0400 


0200C 1 




CMP 


RO , 


Rl 


COMPARE THE CHECK WORD WITH THE DATA 


READ. 


2096 


01 0402 


0C14C5 




BEQ 


73$ 




BRANCH OVER ERROR CALL IF GOOD DATA. 




2097 


01 04 04 


004767 


007756 72$ 


JSR 


PC, 


SPRNT2 


SET UP VALUES FOR ERROR PRINTING. 




2098 


01 04 1 


0D4767 


01 1224 


JSR 


PC, 


SERROR 


ERROR (GO TYPE A MESSAGE) 




2099 


0104 14 


000007 




.WORD 


7 




ERROR TYPE CODE. 




2100 


010416 




73$ 












2101 


010416 


0051 00 




COM 


RO 




COMPLEMENT CHECK WORD 




2102 


010420 


005142 




COM 


-(R2) 




COMPLEMENT TEST DATA 




2103 


01 0422 


01 2201 




MOV 


(R2)+, 


Rl 


GET THE DATA FROM MEMORY UNDER TEST. 




21 04 


1 0424 


020001 




Cl. r> 


RO , 


Rl 


COMPARE THE CHECK WORD WITH THE DATA 


READ. 


2105 


01 0426 


001405 




BEO 


75$ 




BRANCH OVER ERROR CALL IF GOOD DATA. 




2106 


010430 


004767 


007732 74$ 


JSR 


PC, 


SPRNT2 


SET UP VALUES FOR ERROR PRINTING. 




2107 


01 0434 


C 4767 


01 1200 


JSR 


PC, 


SERROR 


*** ERROR *** (GO TYPE A MESSAGE) 




2108 


01 0440 


0C0007 




.WORD 


7 




ERROR TYPE CODE. 




2109 


01 0442 




75$ 












21 10 


010442 


00 51 00 




COM 


RO 




COMPLEMENT CHECK WORD 




21 1 1 


01 0444 


00 5142 




COM 


~(R2) 




RESTORE DATA 




2112 


01 0446 


01 2201 




MOV 


(R2)+, 


Rl 


GET THE DATA FROM MEMORY UNDER TEST. 




21 13 


010450 


02 0001 




CMP 


RO. 


Rl 


COMPARE THE CHECK WORD WI'i.H THE DATA 


READ. 


21 14 


010452 


00 1405 




BEO 


77$ 




BRANCH OVER ERROR CALL IF GOOD DATA. 




2115 


01C454 


004767 


007706 76S 


JSR 


PC , 


SPRNT2 


SET UP VALUES FOR ERROR PRINTING. 




2116 


01 0450 


CG4767 


01 1 1 54 


JSR 


PC, 


SERROR 


■^xt-- ERROR *** (GO TYPE A MESSAGE) 




21 17 


01 04 64 


000007 




.WORD 


7 




ERROR TYPE CODE. 




2113 


01 0466 




77S 












2119 


01 0466 


01 2201 




MOV 


(R2)+, 


Rl 


GET THE DATA FROM MEMORY UNDER TEST. 




2120 


01 0470 


C200C1 




CMP 


RO , 


Rl 


CO./.PARE THE CHECK WORD WITH THE DATA 


READ. 


2121 


01 0472 


CC14C5 




BEQ 


79$ 




BRANCH OVER ERROR CALL IF GOOD DATA. 




2122 


01 0474 


004767 


007666 78$ 


JSR 


PC, 


SPRNT2 


SET UP VALUES FOR ERROR PRINTING. 




2123 


01 0500 


00 4 767 


01 1 1 34 


JSR 


PC. 


SERROR 


*** ERROR *** (GO TYPE A MESSAGE) 




2124 


01 0504 


000007 




.WORD 


7 




ERROR TYPE CODE. 




2125 


01 050B 




79S 












2126 


010505 


0C51 00 




COM 


RO 




COMPLEMENT CHECK WORD 




2127 


01 051 


0051-2 




COM 


-(R2) 




COMPLEMENT TEST DATA 




2128 


01 051 2 


1 22 01 




MOV 


( R2)+, 


Rl 


GET THE DATA FROM MEMORY UNDER TEST. 




2129 


01 051 4 


02 0001 




CMP 


RO , 


Rl 


CO:.'PARE THE CHECK WORD WITH THE DATA 


READ. 


2130 


010516 


00 1405 




BEO 


81 $ 




BRANCH OVER ERROR CALL IF GOOD DATA. 




2131 


01 0520 


C04767 


007642 80$ 


JSR 


PC, 


SPRm2 


SET UP VALUES FOR ERROR PRINTING. 




2132 


01 0524 


004767 


011110 


JSR 


PC, 


SERROR 


*** ERROR *** (GO TYPE A MESSAGE) 
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2133 


010530 


0C0007 






.WORD 


7 




lERROR TYPE CODE. 


2134 


01 0332 






81$: 










2135 


010532 


0C5100 






COM 


RO 




•.COMPLEMENT CHECK WORD 


2136 


01 0534 


0C51'' 2 






COM 


-(R2^ 




;RESTORE DATA 


2137 


010536 


01 2201 






MOV 


(R2)+, 


R1 


;GET THE DATA FROM MEMORY UNDER TEST. 


2138 


010540 


020001 






CMP 


RO, 


R1 


;COf.',PARE THE CHECK WORD WITH THE DATA 


2139 


01 0542 


001405 






BEO 


83$ 




; BRANCH OVER ERROR CALL IF GOOD DATA. 


2140 


010544 


004767 


007616 


82$: 


jr ■; 


PC, 


SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 


2141 


010550 


004767 


01 1064 




JSR 


PC, 


$ERROR 


;*** ERROR *** (GO TYPE A MESSAGE) 


2142 


010554 


000007 






.WORD 


7 




;ERROR TYPE CODE. 


2143 


01 0556 






83$: 










2144 


010556 


01 2201 






MOV 


(R2)+, 


R1 


;GET THE DATA FROM MEMORY UNDER TEST. 


2145 


010560 


020001 






CMP 


RO, 


R1 


; COMPARE THE CHECK WORD WITH THE DATA 


2146 


01 0562 


0C14C5 






BEO 


85$ 




; BRANCH OVER ERROR CALL IF GOOD DATA. 


2147 


010554 


004767 


007576 


84$: 


JSR 


PC, 


SP--MT2 


;SET UP VALUES FOR ERROR PRINTING. 


2148 


010570 


004767 


01 1044 




JSR 


PC, 


SERROR 


ERROR *** (GO TYPE A MESSAGE) 


2149 


010574 


000007 






.WORD 


7 




;ERROR TYPE CODE. 


2150 


01 0575 






85$: 










2151 


010576 


0C51C0 






COM 


RO 




;COM?LEMENT CHECK WORD 


2152 


010600 


005142 






COM 


-(R2) 




; COMPLEMENT TEST DATA 


2153 


010602 


01 2201 






MOV 


{R2)+. 


R1 


;GET THE DATA FROM MEMORY UNDER TEST. 


2154 


010504 


020001 






CMP 


RO, 


R1 


•.COMPARE THE CHECK WORD WITH THE DATA 


2155 


010606 


001405 






BEO 


87$ 




; BRANCH OVER ERROR CALL IF GOOD DATA. 


2156 


01 0S10 


004767 


007552 


86$: 


JSR 


PC, 


SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 


2157 


010614 


004767 


01 1020 




JSR 


PC, 


SERROR 


;*** ERROR *** (GO TYPE A MESSAGE) 


2158 


010620 


000007 






.WORD 


7 




;ERROR TYPE CODE. 


2159 


010622 






87$: 










2150 


01 0622 


005100 






COM 


RO 




; COMPLEMENT CHECK WORD 


2161 


01 0624 


0C5142 






COM 


-(R2) 




;R£STORE DATA 


2162 


01 0626 


0' 2201 






MOV 


(R2)+. 


R1 


;GET THE DATA FROM MEMORY UNDER TEST. 


2163 


01 0630 


020001 






CMP 


RO, 


R1 


; COMPARE THE CHECK WORD WITH THE DATA 


2164 


010532 


001 405 






BEO 


89$ 




; BRANCH OVER ERROR CALL IF GOOD DATA. 


2165 


010634 


004767 


007526 


88$: 


JSR 


PC, 


SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 


2166 


01 0640 


004767 


0107'; % 




JSR 


PC, 


SERROR 


ERROR ♦** (GO TYPE A MESSAGE) 


2167 


01 0644 


000007 






.WORD 


7 




;ERROR TYPE CODE. 


2168 


010546 






89$: 










2159 


010546 


01 2201 






MOV 


(R2)+, 


R1 


•,GET THE DATA FROM MEMORY UNDER TEST. 


2170 


01 0650 


020001 






CMP 


RO, 


R1 


; COMPARE THE CHECK WORD WITH THE DATA 


2171 


010652 


001405 






BEO 


91$ 




; BRANCH OVEP ERROR CALL IF GOOD DATA. 


2172 


010654 


004767 


007506 


90$: 


JSR 


PC, 


SPRNT2 


;SET UP VALUES FO". ERROR PRINTING. 


2173 


010660 


004767 


010754 




JSR 


PC, 


SERROR 


;*** ERROR *** (GO TYPE A MESSAGE) 


2174 


010664 


000007 






.WORD 


7 




;ERROR TYPE CODE. 


2175 


010666 






91$: 










2176 


010666 


005100 






COM 


RO 




; COMPLEMENT CHECK WORD 


2177 


010670 


005142 






COM 


-(R2) 




; COMPLEMENT TEST DATA 


2178 


010672 


0^ 2201 






MOV 


(R2)+, 


R1 


;GET THE DATA FROM MEMORY UNDER TEST, 


2179 


010674 


020001 






CMP 


RO, 


R1 


;CO;«PARE THE CHECK WORD WITH THE DATA 


2180 


010676 


001405 






BEO 


93$ 




; BRANCH OVER ERROR CALL IF GOOD DATA. 


2181 


010700 


004767 


007462 


92$: 


JSR 


PC. 


SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 


2182 


010704 


004757 


010730 




JSR 


PC, 


SERROR 


;*** ERROR *** (GO TYPE A MESSAGE) 


2183 


010710 


000007 






.WORD 


7 




;ERROR TYPE CODE. 


2184 


010712 






93$: 










2185 


010712 


005100 






COM 


RO 




; COMPLEMENT CHECK WORD 


2186 


010714 


00 5142 






COM 


-(R2) 




; RESTORE DATA 


2187 


010716 


01 2201 






MOV 


(R2)+, 


R1 


;GET THE DATA FROM MEMORY UNDER TEST. 


2188 


010720 


020001 






CMP 


RO, 


R1 


•.COMPARE THE CHECK WORD WITH THE DATA 
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2189 


010722 


001405 






BEO 


95$ 




BRANCH OVER ERROR CALL IF GOOD DATA. 


2190 


010724 


004767 


007'"35 


94$: 


JSR 


PC, 


SPRNT2 


SET UP VALUES FOR ERROR PRINTING. 


2191 


010730 


004767 


010704 




JSR 


PC, 


SERROR 


*** ERROR *** (GO TYPE A MESSAGE) 


2192 


01 0734 


CC0007 






.WORD 


7 




ERROR TYPE CODE. 


2193 


010736 






95$: 










2194 


010736 


01 0046 






MOV 


RO, 


-(SP) 


SAVE RO 


2195 


01 0740 


01 0300 






MOV 


R3, 


RO 


PUT R3 INTO RO 


2196 


01 0742 


01 2603 






MOV 


{SP)+, 


R3 


PUT SAVED PO INTO R3 


2197 


010744 


0C5304 






DEC 


R4 




DECREMENT 256. WORD COUNTER 


2198 


01 0746 


OC 1213 






BNE 


22$ 




BRANCH IF MORE. 


2199 


010750 


01 0046 






MOV 


RO, 


-(SP) 


SAVE RO 


2200 


01 0752 


01 0300 






MOV 


R3, 


RO 


PUT R3 INTO RO 


2201 


010754 


01 2603 






MOV 


(SP)+. 


R3 


PUT SAVED PO INTO R3 


2202 


010755 


020502 






BIT 


R5, 


R2 


CHECK FOR END OF A BLOCK. 


2203 


010760 


0C12C4 






BNE 


21$ 




BRANCH IF MORE IN CURRENT BLOCK. 


2204 


010762 


004767 


004216 




JSR 


PC, 


MMUP 


FIND NEXT BLOCK AND LOOP TO 21S. 


2205 


















2206 
















2207 








;^T££T 


16 


COMPLEMENT PARK 


' 3 XOR 9 TEST PATTERN. 


2208 












-4: >^ m * * * li: 




2209 


010766 






TST16: 










2210 


010766 


004567 


007636 




JSR 


R5, 


SSCOPE 


GO TO SCOPE ROUTINE. 


221 1 


010772 


000777 






.WORD 


111 




MINIMUM BLOCK SIZE OF 256. WORDS 


2212 
















REQUIRED FOR THIS TEST. 


2213 


010774 


000167 


000610 




JMP 


TST17 




SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 


2214 
















AVAILABLE FOR TEST. 


2215 


01 1 000 


01 2700 


177777 




MOV 


#-1 . 


RO 


SET UP ALL ONES PATTERN 


2216 


01 1004 


01 2703 


000401 




MOV 


*401 , 


R3 


SET UP PARITY "ALL ZEROS" PATTERN 


2217 


011010 


004457 


003412 




JSR 


R4. 


INITMM 


INITIALIZE THE MEMORY ADDRESS POINTERS. 


2218 


011014 


0C4767 


005236 


1$: 


JSR 


PC, 


W3X9 


WRITE 256. WORD BLOCK WITH 3 XOR 9 PAT. 


2219 


01 1 020 


030502 






BIT 


R5, 


R2 


CHECK FOR END OF A BLOCK. 


2220 


01 1022 


001374 






BNE 


1$ 




BRANCH IF MORE IN CURRENT BLOCK. 


2221 


01 1024 


004767 


004154 




JSfx 


PC, 


MMUP 


FIND NEXT BLOCK AND LOOP TO 1$. 


2222 


















2223 
















2224 








;* CHECK C^-^PLEMENT PARITY 3 XOR 9 PATTERN WRITTEN ABOVE. 


2225 
















2226 


01 1030 


1 2700 


177777 




MOV 


tt-\ , 


RO 


SET UP ALL ONES PATTERN 


2227 


01 1 034 


01 2703 


000401 




MOV 


.^^401 . 


R3 


SET UP PARITY "ALL ZEROS" PATTERN 


2228 


01 1040 


004467 


003362 




JSR 


R4. 


INITMM 


INITIALIZE THE MEMORY ADDRESS POINTERS. 


2229 


01 1 044 


01 2704 


000100 


1 1S. 


MOV 


#64. , 


R4 


SET 256. WORD COUNTER 


2230 


01 1050 






12$: 










2231 


01 1050 


01 2201 






MOV 


(R2)+, 


R1 


GET THE DATA FROM MEMORY UNDER TEST. 


2232 


01 1052 


02 00'".1 






CMP 


RO, 


R1 


COMPARE THE CHECK WORD WITH THE DATA READ. 


2233 


011054 


00 1405 






BEO 


65$ 




BRANCH OVEP ERROR CALL IF GOOD DATA. 


2234 


01 1 C56 


004767 


007304 


64$: 


JSR 


PC, 


SPRNT2 


SET UP VALUES FOR ERROR PRINTING. 


2235 


01 1 062 


004767 


010552 




JSR 


PC, 


SERROR 


*** ERROR *** (GO TYPE A MESSAGE) 


2236 


01 1 056 


CC0007 






.'.-DRD 


7 




ERROR TYPE CODE. 


2237 


01 1070 






65S: 










2238 


01 1070 


01 2201 






MCV 


(R2)+. 


R1 


GET THE DATA FROM MEMORY UNDER TEST. 


2239 


01 1072 


0"0001 






CMP 


RO. 


R1 


COMPARE THE CHECK WORD WITH THE DATA READ. 


2240 


01 1074 


00 1405 






BEQ 


67$ 




BRANCH OVEP ERROR CALL IF GOOD DATA. 


2241 


01 1076 


004767 


007264 


66$: 


JSR 


PC. 


SPRNT2 


SET UP VALUES FOR ERROR PRINTING. 


2242 


01 1 1 02 


004767 


010532 




JSR 


PC. 


SER. OR 


*** ERROR *** (GO TYPE A MESSAGE) 


2243 


01 1 1 06 


000007 






.WORD 


7 




ERROR TYPE CODE. 


2244 


011110 






67$: 
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2245 


011110 


01 2201 






MQV 


{R2)+, 


R1 


;GET THE DATA FROM MEMORY UNDER TEST. 




224G 


011112 


020001 






CMP 


RO , 


R 1 


;CC^.1PARE THE CHECK WORD WITH THE DATA 


READ , 


2247 


011114 


00 1405 






BEO 


69$ 




; BRANCH OVEP ERROR CALL IF GOOD DATA. 




2248 


011116 


004767 


007244 


68$ 


dSR 


PC , 


SPRNT2 


■,SET UP VALUES FOR ERROR PRINTING. 




2249 


01 1 1 22 


004767 


010512 




USR 


PC , 


SERROR 


;»** ERROR *** (GO TYPE A MESSAGE) 




2250 


01 1 1 26 


000007 






. WORD 


7 




;ERROR TYPE CODE. 




2251 


01 n 30 






69$ 












2252 


01 1 1 30 


CI 2201 








{ R2 )+ , 




;GET THE DATA FROM MEMORY UNDER TEST. 




2253 


01 1 1 32 


020001 






CMP 


RO, 


R1 


: COMPARE THE CHECK WORD WITH THE DATA 


READ. 


2254 


01 1 1 34 


00 1405 






BEO 


7 1 S 




•.BRANCH OVEP ERROR CALL IF GOOD DATA. 




2255 


01 1 1 36 


004767 


007224 


70S 


JSR 


PC , 


SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 




2256 


01 1 1 42 


004767 


010472 




jsr 


PC. 


SERROR 


;■*** ERROR *** (GO TYPE A MESSAGE) 




2257 


01 1 1 46 


000007 






.WORD 


7 




;ERROR TYPE CODE. 




2258 


01 1 150 






71S 












2259 


01 1 1 50 


01 0046 






MOV 


RO , 


-(SP) 


;SAVE RO 




2260 


01 1 1 52 


01 0300 






MOV 


R3 , 




; PUT R3 INTO RO 




2261 


01 1 1 54 


01 25C3 






MOV 


{SP)+, 


R3 


; PUT SAVED PO INTO R3 




2262 


01 1 1 55 


005304 






DEO 


R4 




; COUNT 256. WORDS 




2263 


01 1 160 


00 1333 






BNE 


1 2$ 




; BRANCH IF MORE 




2264 


01 1 1 62 


01 0046 






MOV 


RO , 


-(SP) 


;SAVE RO 




2265 


01 1 1 64 


01 0300 






MOV 


R3 , 


RO 


;PUT R3 INTO RO 




2266 


01 1 1 66 


01 2603 






MOV 


(SP)+, 


R3 


; PUT SAVED PO INTO R3 




2267 


01 1 1 70 


030502 






BIT 


R5 , 


R2 


;CHECK FOR END OF A BLOCK. 




2268 


01 1 1 72 


0013.J4 






BNE 


1 1 $ 




•.BRANCH IF MORE IN CURRENT BLOCK. 




2269 


01 1 1 74 


004767 


004004 




JSR 


PC , 


MMU P 


;FIND NEXT BLOCK AND LOOP TO 11$. 




2270 




















2271 








; ; * " 


*********** 


******** 








2272 








; * 


CHECK, COM, 


CHECK, 


COM, CHECK COMPLEMENTED PARITY 3 XOR 9 PATTERN 




2273 








. . , 


*********** 


******** 








2274 


01 1 200 


01 2700 


1 77777 




MOV 


ff-1 , 


RO 


;SET UP ALL ONES PATTERN 




2275 


01 1204 


■ 27C3 


000401 




MOV 


^40^ , 


R3 


;SET UP PARITY "ALL ZEROS" PATTERN 




2276 


011210 


004467 


003212 




JSR 


R4 , 


INITMM 


; INITIALIZE THE MEMORY ADDRESS POINTERS. 


2277 


011214 


01 2704 


0001 00 


21S 


MOV 


#64. , R4 




;SET 256. WORD COUNTER 




2278 


01 1 220 






22S 












2279 


01 1 220 


01 2201 






MOV 


(R2)+, 


R1 


;GET THE DATA FROM MEMORY UNDER TEST. 




2280 


01 1222 


020001 






CMP 


RO , 


R1 


; COMPARE THE CHECK WORD WITH THE DATA 


READ. 


2281 


01 1 224 


0014C5 






BEQ 


73$ 




; BRANCH OVER ERROR CALL IF GOOD DATA. 




2282 


01 1 226 


004767 


0071 34 


72S 






SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 




2283 


01 1 232 


004767 


010402 




JSR 


pc! 


SERROR 


;*'^* ERROR *** (GO TYPE A MESSAGE) 




2284 


01 1 236 


000007 






.WORD 


7 




•.ERROR TYPE CODE. 




2285 


01 1 240 






73$ 












2286 


01 1 240 


0051 00 






COM 


RO 




; COMPLEMENT CHECK WORD 




2287 


01 1 242 


0051-^2 






COM 


-(R2) 




; COMPLEMENT TEST DATA 




2288 


01 1 244 


01 2201 






MOV 


(R2)+, 


R1 


•.GET THE DATA FROM MEMORY UNDER TEST. 




;^289 


01 1246 


020001 






CMP 


RO , 


R1 


; COMPARE THE CHECK WORD WITH THE DATA 


READ. 


2290 


01 1 250 


001405 






BEQ 


75$ 




-.BRANCH OVER ERROR CALL IF GOOD DATA. 




2291 


01 1252 


004767 


0071 1 


74$ 


JSR 


PC, 


SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 




2292 


01 1256 


004767 


010356 




JSR 


PC, 


SERROR 


ERROR *** (GO TYPE A MESSAGE) 




2293 


01 1 262 


000007 






.WORD 


7 




;ERROR TYPE CODE. 




2294 


01 1 264 






75S 












2295 


01 1 264 


0051 00 






COM 


RO 




; COMPLEMENT CHECK WORD 




2296 


01 1266 


00 51 'i2 






COM 


-(R2) 




;RESTOR£ DATA 




2297 


01 1270 


01 2201 






MOV 


(R2)+, 


R1 


;GET THE DATA FROM MEMORY UNDER TEST. 




2298 


01 1272 


020001 






CMP 


RO, 


R1 


; COMPARE THE CHECK WORD WITH THE DATA 


READ. 


2299 


01 1 274 


001405 






BEO 


77$ 




; BRANCH OVER ERROR CALL IF GOOD DATA. 




2300 


01 1276 


004767 


007064 


76$ 


JSR 


PC, 


SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 
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2301 


01 1 302 


0C.4767 


010332 




JSR 


PC, 


SERROR 


ERROR *♦* (GO TYPE A MESSAGE) 


2302 


01 1305 


OG0007 






. WORD 


7 




;ERROR TYPE CODE. 


2303 


011310 






77$: 










2304 


011310 


01 22C i 






MOV 


(R2)-, 


R1 


•.GET THE DATA FROM MEMORY UNDER TEST. 


2305 


011312 


020001 






CMP 


RO, 


R1 


; COMPARE THE CHECK WORD WITH THE DATA 


2306 


011314 


00 1405 






BEO 


79$ 




: BRANCH OVEP ERROR CALL IF GOOD DATA. 


2307 


011316 


0C4767 


007044 


78$: 


JSR 


PC, 


SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 


2308 


01 1322 


004767 


010312 




j: ; 


PC, 


SERROR 


;*** ERROR *** (GO TYPE A MES3AGE) 


2309 


01 1326 


0C0007 






. WORD 


7 




;£RROR TYPE CODE. 


2310 


01 1 330 






7S$: 










231 1 


01 1330 


0'. 51 00 






COM 


RO 




; COMPLEMENT CHECK WORD 


2312 


01 1 332 


005142 






COM 


-(R2) 




; CC'.-.PLEMENT TEST DATA 


2313 


01 1 334 


01 2201 






MOV 


(R2)H-, 


R1 


;GET THE DATA FROM MEMORY UNDER TEST. 


2314 


01 1 336 


020001 






CMP 


RO, 


R1 


;CC.1PAR£ THE CHECK WORD WITH THE DATA 


2315 


01 1 340 


00 1405 






BEO 


81$ 




;SRANCH OVEP ERROR CALL IF GOOD DATA. 


2316 


01 1 342 


0C4767 


007020 


80$: 


JSR 


PC, 


SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 


2317 


01 1346 


004767 


01 0266 




JSR 


PC, 


SERROR 


;*** ERROR ♦** (GO TYPE A MESSAGE) 


2318 


01 1352 


0C00C7 






. WORD 


7 




;ERROR TYPE CODE. 


2319 


01 1 354 






81$: 










2320 


01 1 354 


005100 






COM 


RO 




; COMPLEMENT CHECK WORD 


2321 


01 1356 


00 5142 






COM 


-(R2) 




•.RESTORE DATA 


2322 


01 1 350 


01 2201 






MOV 


(R2)+, 


R1 


;GET THE DATA FROM MEMORY UNDER TEST. 


2323 


01 1362 


o:-:ooci 






CMP 


RO, 


R1 


•.CO. 'PARE THE CHECK WORD WITH THE DATA 


2324 


01 1 364 


00 1405 






BEO 


83$ 




; BRANCH OVE- ERROR CALL IF GOOD DATA. 


2325 


01 1 366 


0C4767 


006774 


82$: 


JSR 


PC, 


SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 


2326 


01 1 372 


0C4767 


010242 




JSR 


PC, 


SERROR 


ERROR *** (GO TYPE A MESSAGE) 


2327 


01 1 375 


000007 






. WORD 


7 




•.ERROR TYPE CODE. 


2328 


011400 






83$: 










2329 


1 1400 


01 2201 






MOV 


(R2)+, 


R1 


;GET THE DATA FROM MEMORY UNDER TEST. 


2330 


01 1402 


010001 






CMP 


RO, 


R1 


; COMPARE THE CHECK WORD WITH THE DATA 


2331 


1 1 404 


001405 






BEO 


85$ 




: BRANCH OVEP ERROR CALL IF GOOD DATA. 


2332 


01 1406 


004767 


006754 


84$: 


JSR 


PC, 


SPRNT2 


;SET UP VALUES FOP ERROR PRINTING. 


2333 


011412 


0C47e7 


01 0222 




JSR 


PC, 


SERROR 


I''** ERROR *** (GO TYPE A MESSAGE) 


2334 


011416 


000007 






.WORD 


7 




;ERROR TYPE CODE. 


2335 


01 1420 






85$: 










2336 


01 1420 


0C5100 






COM 


RO 




; COMPLEMENT CHECK WORD 


2337 


01 1422 


00 5142 






CCM 


-(R2) 




•.COMPLEMENT TEST DATA 


2333 


01 1424 


0- 22C1 






MOV 


(R2)+, 


R1 


•.GET THE DATA FROM MEMORY UNDER TEST. 


2339 


01 1426 


020001 






CMP 


RO, 


R1 


;CCV,?ARE TtiE CHECK WORD WITH THE DATA 


2340 


01 1430 


001405 






BEO 


07$ 




; BRANCH OVE? ERRO'- CALL IF GOOD DATA. 


2341 


01 1432 


00 4 767 


006730 


86$: 


JSR 


PC, 


SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 


234 2 


01 14 36 


0C4767 


01 01 76 




JSR 


PC, 


SERROR 


ERROR *** (GO TYPE A MESSAGE) 


2343 


01 1442 


00 0007 






.WORD 


7 




;ERROR TYPE CODE. 


2344 


01 1 444 






87$: 










2345 


1 1 444 


005100 






COM 


RO 




; COMPLEMENT CHECK WORD 


2346 


01 1446 


0U5142 






COM 


-(R2) 




; RESTORE DATA 


2347 


CI 14 50 


0- 2201 






MOV 


(R2)+, 


R1 


:GET THE DATA FROM MEMORY UNDER TEST. 


2348 


01 1 452 


020001 






CMP 


RO, 


R1 


; COMPARE THE CHECK WORD WITH THE DATA 


2 349 


01 1454 


00 1405 






BEO 


89$ 




; BRANCH OVEP ERROR CALL IF GOOD DATA. 


2350 


01 1 4 56 


004767 


006704 


88$: 


JSR 


PC, 


SPRNT2 


;SET U? VALUES FOR ERROR PRINTING. 


2351 


1 1 462 


004767 


01 01 52 




JSR 


PC, 


SERROR 


ERROR * * * (GO TYPE A MESSAGE) 


2352 


01 1 466 


000007 








7 




;ERRC-: TYPE CODE. 


2353 


01 14 70 






89$: 










2354 


01 1 470 


0^ 2201 






MOV 


(R2)+, 


R1 


;GET THE DATA FROM MEMORY UNDER TEST. 


2355 


01 1472 


020001 






CMP 


RO, 


R1 


•.COMPARE THE CHECK WORD WITH THE DATA 


2356 


01 1 474 


001405 






BEO 


91$ 




; BRANCH OVER ERROR CALL IF GOOD DATA. 



C20MCF0 


0-1 24K fv- EMORY 


EXERCISER, 


16K VER 


MACYI 1 


30A(1052) 20-FES 


-78 07:56 PAGE 50 


C20MCF . 


~ ^ ^ 


4-f EB-78 


08: 19 


T16 


COMPLEMENT PARITY 3 XQR 


9 TEST PATTERN. 


2357 


1 1 •'; 7 6 


0C4767 


006664 


90S: 


USR 


PC, 


SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 


2358 


1 1 502 


0C4767 


010-32 




JSR 


PC, 


SERROR 


ERROR o*^ (GO TYPE A MESSAGE) 


2359 


01 1 506 


C 7 






.WORD 


7 




;ERROR TYPE CODE. 


2360 


11510 






91$: 










2361 


C 1 1 5 1 


0051 00 






COM 


RO 




•.COMPLEMENT CHECK WORD 


2362 


01 1512 


C 5 1 4 2 






COM 


-(R2) 




;CO:.'PLEMENT TEST DATA 


2363 


01 1 5 1 4 


01 2201 






MOV 


(R2)+, 


R1 


;GET THE DATA FROM MEMORY UNDER TEST. 


2364 




02 0001 






CMP 


RO , 


R1 


; COMPARE THE CHECK WORD WITH THE DATA 


2365 


01 1 T; 2 


c; 1 405 






BEO 


93$ 




; BRANCH OVEP ERROR CALL IF GOOD DATA. 


2356 


01 1522 


OC 4767 


006640 


92$: 


JSR 


PC, 


SPRNT2 


•,SET UP VALUES FOR ERROR PRINTING. 


2367 




004767 


010106 




JSR 


PC, 


SERROR 


;*•* ERROR *** (GO TYPE A MESSAGE) 


2368 


01 1 532 


000007 






.WORD 


7 




;ERROR TYPE CODE. 


2369 


1 1 E34 






93S: 










2370 




005100 






COM 


RO 




iCOvPLErv'ENT CHECK WORD 


2371 


01 1536 


00 5142 






COiVI 


- ( R2) 




[RESTORE DATA 


2372 


1 1540 


01 2201 






MOV 


(R2)+, 


R1 


;GET THE DATA FROM MEMORY UNDER TEST. 


2373 


01 1542 


020001 






CMP 


RO, 


R1 


SCOMPARE THE CHECK WORD WITH THE DATA 


2374 


01 1544 


0D14C5 






BEO 


95$ 




; BRANCH OVEP ERROR CALL IF GOOD DATA. 


2375 


01 154B 


004767 


006614 


94$: 


JSR 


PC, 


SPRNT2 


iSET UP VALUES FOR ERROR PRINTING. 


2376 


01 1552 


004767 


010062 




JSR 


PC, 


SERROR 


;**♦ ERROR *** (GC TYPE A MESSAGE) 


2377 


01 1556 


000007 






.WORD 


7 




;ERRQR TYPE CODE. 


2378 


01 15S0 






95$: 










2379 


01 1560 


01 0046 






MOV 


RO, 


-■(SP) 


;SAVE RO 


2330 


01 1552 


01 0300 






MOV 


R3, 


RO 


■.PUT R3 INTO RO 


2381 


01 1564 


01 2603 






MOV 


(SP)+, 


R3 


;PUT SAVED PO INTO R3 


2382 


01 1566 


0053C4 






DEC 


R4 




; DECREMENT 256. WORD COUNTER 


2383 


01 1570 


001213 






ONE 


22$ 




•.BRANCH IF MORE. 


2384 


01 1572 


01 0045 






MOV 


RO, 


-(£P) 


;SAVE RO 


2335 


01 1574 


01 0300 






MOV 


R3, 


RO 


;PUT R3 INTO RO 


2386 


01 1576 


0^ 2503 






MOV 


{SP)+, 


R3 


;PUT SAVED PO INTO R3 


2337 


01 1500 


020502 






BIT 


R5, 


ft2 


; CHECK FOR END OF A BLOCK. 


2383 


01 1602 


0012C4 






BNE 


21$ 




; BRANCH IF MORE IN CURRENT BLOCK. 


2389 


01 1604 


004767 


003374 




JSR 


PC, 


MMUP 


;FIND NEXT BLOCK AND LOOP TO 21$. 



C20MCF0 


0-1 24K ^■EMORY 


EXERCISER, 16K 


VER 


MA."Y1 1 


30A( 1052) 


20-FEB 


-78 07:56 PAGE 51 


C20MCF . 


P11 14-FEB-78 


08: 19 




T17 


WORSE 


CASE NOISE PARITY 


BYTE TESTING 


2390 






















2391 












Itest 


17 


WORSE CASE NOISE 


PARITY BYTE TESTING 


2392 












* CHECK PARITY MEMORY 


WITH A SERIES OF BYTE PATTERNS 


2393 














1 ) FORCE WRC'JG PARITY IN 


EACH BYTE OF PARITY MEMORY 


2394 














2) READ IT BACK 


WITH ACTION ENABLE SET, MAKING SURE THAT A TRAP OCCURS 


2395 














3) WRITE GOOD PARITY AND 


MAKE SURE NO TRAP OCCURS WHEN IT IS READ 


2396 














A) MAKE SURE THE ERROR ADDRESS BITS (CSR BITS <11-5>) ARE CORRECT 


2397 






















2398 


011610 








TST^7: 










2399 


CI 1510 


004567 


007014 








JSR 


R5, 


SSCCPE 


;GC TO SCOPE ROUTINE. 


2400 


011614 


c ooco 










.WORD 







;N0 MINIMUM BLOCK SIZE REQUIRED THIS TEST. 


2401 


011616 


005767 


170454 




WWPBO: 


T5T 


MPRX 




; CHECK FOR ANY PARITY MEMORY. 


2402 


01 ib22 


0014C4 










BEO 


IS 




;CR IF NO PARITY MEMORY. 


2403 


01 1624 


C32777 


000100 


167306 






BIT 


#SW06, 


&'SWk 


;CHECK FCRIMHIBIT PARITY SWITCH, 


2404 


01 1632 


00 1402 










BEQ 


2$ 




jgR If- wqt r,6t. 


2405 


01 1534 


0001 67 


000622 




1$: 


JMP 


TST20 




;SKIP THIS TEST IF NO PARITY MEMpRY PRESENT. 


2406 


01 1640 


OC5000 






2$: 


CLR 


RO 




;ZERO TO BE PUT IN ALL MEMORY. 


2407 


01 1642 ' 


004757 


004322 








JSR 


PC, 


SETCON 


;ROUTIN£ TO LOAD ALL MEMORY. 


2408 


CI 1546 


004467 


002554 








JSR 


R4, 


INITMM 


; INITIALIZE THE MEMORY ADDRESS POINTERS. 


2409 


01 1552 


036767 


167666 


167660 


WWPBYT : 


BIT 


BITPT, 


PMEMAP 


; CHECK IF CURRENT BANK HAS PARITY MEMORY. 


2410 


01 1560 


0C1010 










BNE 


2$ 




;BR IF PARITY MEM. 


241 1 


01 1662 


026767 


167560 


167652 






BIT 


BITPT+2,PMEMAP+2 


; . . .HI 64K. 


2412 


01 1670 


001004 










BNE 


2$ 




;BR IF PARITY MEM. 


2413 


01 1672 


Or 0502 










BIS 


R5, 


R2 


; POINT TO END OF BLOCK. 


2414 


01 1674 


00 5202 










INC 


R2 




;FIRST ADR OF NEXT BLOCK. 


2415 


01 1675 


0001 67 


000540 








JMP 


WW PBS 




•,3R TO FIND NEXT BLOCK. 


2416 


01 1702 


GC4767 


005674 




2$: 


JSR 


PC, 


SETAE 


;SET ACTION ENABLE (EVEN IF BANKO.) 


2417 


01 1705 


004767 


005724 








JSR 


PC, 


CKPMER 


•.CHECK FOR ANY NOH TRAP PARITY ERRORS. 


2418 


011712 


C:0227 


0001 14 




WWPB1 : 


CMP 


R2, 


1 14 


jCKECK IF POINTING TO PARITY ERROR VECTOR. 


2419 


011716 


001004 










BNE 


3$ 




;BR IF NOT AT VECTOR. 


2420 


01 1 720 


052702 


000004 








ADD 




R2 


;SKIP PARITY VECTOR. 


2421 


01 1724 


00 0167 


000512 








JMP 


WWP85 




;CHECK FOR BLOCK END. 


2422 


01 1730 


1 1 1201 






3$: 


MOVB 


(R2), 


R1 


;CHECK IF BYTE STILL CLEARED. 


2423 


01 1732 


00 1405 










BEQ 


65$ 




; BRANCH OVEP ERROR CALL IF GOOD DATA. 


2424 


01 1734 


0047B7 


006352 




64$: 


JSR 


PC, 


SPRNT 


;SET UP VALUES FOR ERROR PRINTING. 


2425 


01 1 740 


004767 


007674 








JSR 


PC, 


SERROR 


;*** ERROR *** (GO TYPE A MESSAGE) 


2426 


Oil 744 


0C001 1 










.WORD 


1 1 




;ERROR TYPE CODE. 


2427 


01 1746 








65$: 










2428 


01 1 746 


1C5067 


167606 








CLRb 


OEFLG 




:CLEAR ODD/EVEN FLAG, 


2429 


01 1752 


1 • 2700 


000252 








MOVB 


^252, 


RO 


;SET UP DATA...EVN, SETS PARITY BIT. 


2430 


01 1 756 


1 - 001 2 






WWP32: 


MCV3 


RO, 


(R2) 


;MOV DATA INTO TEST LOCATION. 


2431 


01 1 760 


016703 


167644 








MOV 


.MPRX, 


R3 


;GET PARITY REGISTER TABLE POINTER. 


2432 


01 1 754 


056773 


167622 


000000 


10$: 


BIS 


WW?,@(R3) 


; SET WRITE WRONG PARITY. 


2433 


01 1 772 


052733 


000001 








BIS 


^AE ,@( R3 )+ 




2434 


01 1 776 


0C5713 










TST 


(R3) 




;CHECK FOR TABLE TERMINATOR. 


2435 


01 2000 


001371 










BNE 


10$ 




;BR IF MORE REGS IN TABLE. 


2436 












* SET 


WRONG 


PARITY IN 


LOCATION 


UNDER TEST. 


2437 


01 2D02 


1 1 001 2 










MCVB 


RO, 


(R2) 


;WRITE SAME DATA (EXCEPT PARITY) VIA DATOB. 


2433 


01 2004 


01 6703 


167620 








MGV 


.MPRX, 


R3 


;GET PARITY REG TABLE POINTER. 


2439 


01 201 


0-;6723 


167576 




11$: 


BIC 


WWP, 


&(R3)+ 


;CLEAR WRITE wRONG PARITY. 


2440 


01 20 1 4 


0C571 3 










TST 


(R3) 




;CHECK FOR TABLE TERMINATOR. 


2441 


01 201 6 


CC1374 










BN^ 


11$ 




;BR IF MORE PARITY REGISTERS. 


2442 


012020 


O: 6737 


167606 


0001 14 






MOV 


. PBTRP, 


@*PAF;VEC 


;SET UP VECTOR FOR EXPECTED TRAP. 


2443 












DETECT WRONG PARITY 


VIA DATIP; DATOB SHOULDN'T EXECUTE. 


2444 


012026 


105412 










NEGB 


(R2) 




;DATIP (DATOB AND COM PARITY BIT.) 


2445 












* SHOULD r.AV 


£ TRAPPED 


TO PBTRP 
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CZOMCF . 


P1 1 1 


4-FE3-78 


08: 19 




T17 


WQSSE 


CASE NOISE 


PARITY BYTE TESTING 


2446 


01 2030 


01 6737 


167602 


0001 14 




MOV 


. PESRV , 


gi'/PARVEC 


;RESET VECTOR FOR UNEXPECTED TRAPS. 


2447 


01 2036 


CC4767 


ooe^oo 




64$: 


JSR 


PC, 


SPRNTO ; 


SET UP VALUES FOR ERROR PRINTING. 


2448 


01 2C42 


004767 


007572 






dSR 


PC, 


SERROR ; 


ERROR *** (GO TYPE A MESSAGE) 


2449 


01 2046 


0COO1 2 








.WORD 


12 


;ERROR TYPE CODE. 


2450 


012050 


000562 








BR 


WWPB4 


;SKIP TRAP SERVICE. 


2451 
2452 










;* EXPECTED PARITY MEMORY TRAPS 




2453 


012052 


01 6737 


167560 


0001 14 


PBTRP: 


MOV 


. PESRV , 


g-A'PARVEC 


;RESET PARITY VECTOR FOR UNEXPECTED TRAPS. 


2454 


012060 


022626 








CMP 


(SP)+, 


(SP)+ ; 


RESET THE STACK POINTER AFTER TRAP. 


2455 


012062 


01 6703 


167540 






MOV 


.MPRO, 


R3 ; 


GET PARITY REG AND MAP TABLE POINTER. 


2456 


01 2066 


022713 


000001 




21$: 


BIT 


#BIT0, 


{R3) ; 




2457 


01 2072 


0C1003 








BNE 


22$ 




BR IF IT DOESN'T EXIST. 


2458 


012074 


01 7301 


000000 






MOV 


(g(R3) , 


R1 ; 


GET THE CONTENTS. 


2459 


01 21 00 


100413 








BMI 


23$ 




BR IF ERRO? FLAG SET. 


2460 


012102 


0£2703 


00001 




22$: 


ADD 


;i10, 


R3 • 


MOVE POINTER TO NEXT REG. 


2461 


012106 


020367 


167516 






CMP 


R3, 


.MPRX ; 


CHECK FOR END OF TABLE. 


2462 


012112 


1 03765 








BLO 


21$ 




3R IF MORE REGISTERS. 


2453 


012114 


004767 


005222 




64$: 


JSR 


PC, 


SPRNTO ; 


SET UP VALUES FOR ERROR PRINTING. 


2464 


01 21 20 


004767 


007514 






JSR 


PC. 


SERROR , 


*** ERROR (GO TYPE A MESSAGE) 


2465 


012124 


0C0013 








.WORD 


13 




ERROR TYPE CODE. 


2466 


012126 


000533 








BR 


WWPB4 




EXIT AFTER ERROR. 


2467 


01 21 30 


026763 


167410 


000C02 


23$: 


BIT 


BITPT , 


2_(R3) ; 


CHECK THE fAP FOR THIS REGISTER. 


2468 


0121 35 


00101 1 








BNE 


24$ 




BR IF THIS REGISTER CONTROLS THIS BANK. 


2469 


012140 


036763 


167402 


000004 




BIT 


B1TPT+2,4(R3) ; 


CHECK THE HI 64K. 


2470 


01 21 46 


001005 








BNE 


24$ 




BR IF THIS REGISTER CONTROLS THIS BANK. 


2471 


012150 


004767 


006162 




65$: 


JSR 


PC, 


SPRNTP 


CCT IID \/ A 1 JiCC PHD PDQnD DDTKITTMH 
O^i Ur^ VALUco rUK CKKUK rrtiNiiNu. 


2472 


01 21 54 


004767 


007450 






JSR 


PC, 


SERROR ; 


*«* ERROR »^*+ (GO TYPE A MESSAGE) 


2473 


012160 


000014 








.WORD 


14 




ERROR TYPE CODE. 


2474 


01 21 62 








24$: 










2475 


012162 


01 0046 








MOV 


RO.-(SP) 




; PUSH RO OU STACK 


2476 


01 21 64 


0-, 0200 








MOV 


R2, 


RO ; 


GET THE ADDRESS POINTER. 


2477 


012166 


0427C0 


003777 






BIG 


#3777, 


RO ; 


CLEAf^ LOW ADDRESS BITS. 


2478 


0121 72 


000300 








SWAB 


RO 




SHIFT 6 PLACES RIGHT. 


2479 


0121 74 


006300 








ASL 


RO 






2480 


012176 


006300 








ASL 


RO 






2481 


012200 


005767 


166402 






TST 


MMAVA 




CHECK FOR r.'EM MGMT . 


2482 


012204 


001404 








BEO 


25S 




BR IF NO K.EU MGMT. 


2483 


i 2205 


0-'27C0 


177600 






BIC 


^¥177600, 


30 


CLEAR BANK BITS 


2484 


012212 


063700 


1 72344 






ADD 


€i*KIPAR5 


, RO 


ADD M-LV. MGV.T OFFSET. 


2485 


012216 


0r-27C0 


1 00001 




25$: 


BIS 


//BIT15+BIT0,R0 . 


SET ERROR AND AE BIT IN CHECK WORD. 


2486 


01 2222 


C 6367 


000006 


1672S6 




MOV 


6(R3) . 


RESRVD ; 


GET APPROPIATE MASK. 


2487 


01 2230 


046700 


167262 






BIC 


RESRVD, 


RO 


CLEAR PARITY REG BITS RESERVED FOR FUTURE. 


2488 


1 2234 


0-;6701 


167256 






BIC 


RESRVD, 


R1 ; 


CLEAR PARITY REG BITS RESERVED FOR FUTURE. 


2489 










;N0TE: 


THE ABOVE INSTRUCTION (2 I 


ORDS) CAN EE NOP ' ED FOR UNMIXED MEMORY TYPES 


2490 


01 2240 


0200C1 








CWP 


RO, 


R1 


CO:.;PARE THE CHECK WORD WITH THE DATA READ. 


2491 


01 2242 


001405 








BEO 


67$ 




BRANCH OVEP ERROR CALL IF GOOD DATA. 


2492 


01 2244 


004767 


006066 




6dS: 


JSR 


PC, 


SPRNTP • 


SET UP VALUES FOR ERROR PRINTING. 


2493 


012250 


004767 


007364 






jri 


PC, 


SERROR 


*** ERROR *** (GO TYPE A MESSAGE) 


2494 


C12254 


00001 5 








.WORD 


15 




ERROR TYPE CODE. 


2495 


012256 








67$: 










2496 


012256 


C-'5073 


000000 






CLR 


@(R3) 




CLEAR REG INCLUDING ACTION ENABLE. 


2497 


012262 


01 0346 








MOV 


R3,-(SP) 




;PUSH R3 ON STACK 


2498 


012264 


062703 


000010 




26$: 


ADD 


#10, 


R3 


UPDATE POINTER TO NEXT PARITY REG + MAP. 


2499 


012270 


020367 


167334 






CMP 


33, 


.MP..X 


CHECK FOR END OF TABLE. 


2500 


012274 


101014 








BhI 


WWPB3 




BR IF END OF TABLE REACHED. 


2501 


012276 


032713 


000001 






RT T 


#BIT0, 


(R3) 


CHECK IF NEXT REG EXISTS. 



C20MCF. 


PI 1 


4-FE3-78 


2502 


012302 


001370 


2503 


012304 


01 7301 


2504 


012310 


1 C0365 


2505 


012312 


004767 


2506 


012316 


0C4767 


2507 


01 2322 


0G0016 


2508 


012324 


000757 


2509 


012326 


1 1 1204 


2510 






251 1 






2512 


01 2330 


111212 


2513 






2514 






2515 


012332 


0^ 2603 


2516 


012334 


01 7301 


2517 


012340 


046701 


2518 






2519 


012344 


042700 


2520 


012350 


020001 


2521 


C12352 


00 1405 


2522 


012354 


C04767 


2523 


012360 


004767 


2524 


01 2254 


0C001 5 


2525 


012366 




2526 


012366 


01 2773 


2527 


012374 


Ci 04C1 


2528 


012376 


01 26C0 


2529 


012400 


120001 


2530 


012402 


001405 


2531 


01 2404 


004767 


2532 


01 24 1 


4767 


2533 


012414 


0G0017 


2534 


012416 




2535 


012416 


1 1 001 2 


2536 


01 2420 


10 5712 


2537 


012422 


0^ 2700 


2538 


012426 


105167 


2539 


012432 


1 G0C02 


2540 


01 2434 


000167 


2541 


012440 


0C5202 


2542 


01 2442 


030502 


2543 


01 2444 


001 402 


2544 


01 24 46 


000167 


2545 


012452 


004767 


2546 


012456 


004767 



124K MEMORY EXERCISER, 



006020 
007316 



1GK VER 
T17 



MACY1 


30A(1052) 


20-FEB 


-78 07:56 PAGE 53 


WORSc 


CASE NOISE 


PARITY 


BYTE TESTING 


BNE 


26$ 




;BR IF THIS PARITY REG DOESN'T EXIST 


MOV 


@(R3) , 


R1 


;SAVE AND CHECK FOR ERROR FLAG. 


BPL 


26$ 




;BR IF NO EPROR FLAG. 


JSR 


PC, 


SPRNTP 


;SET UP VALUES FOR ERROR PRINTING. 


JSR 


PC, 


iERRCR 


EP.RGR "** (GO TYPE A MESSAGE) 


.WORD 


16 




;ERROR TYPE CODE. 


BR 


26$ 




;BR AFTER EPRDR. 


MOVB 


(R2), 


R4 


;GET THE DA"A FOR CHECKING. 



000000 
1671 52 



005756 
007254 



WWPB3 

;* READING THE DATA VIA DATI TO CHECK IT SnCULD CAUSE PARITY ERROR, BUT 
;* ACTION ENABLE IS NOT SET IN CONTROLING PEG, SO NO TRAP SHOULD OCCURE. 

MOVB (R2), (R2) ;R£STOHE RIGHT PARITY 

;NOr£: THF ,BOVE INSTRUCTION CAN BE NCP ' ED FOR PROCESSORS 
; WHICH DO ONLY DATOB TO DESTINATION OF MOVB INSTRUCTIONS. 

MOV (SP)+.R3 ;;P0? STACK INTO R3 

MOV @(R3), R1 ;READ THE PARITY REGISTER TO CHECK IT AGAIN. 

BIC RESRVD, t"1 iCLEAR PARITY REG BITS RESERVED FOR FUTURE. 

;N0TE: THE ABOVE INSTRUCTION (2 WORDS) CAN BE NOP'ED FOR UNMIXED MEMORY TYPES. 



000001 000000 



005732 
007224 



000253 
167126 



177240 
002526 
005054 



67$: 
WWPB4 : 



27$: 
WW PBS: 



BI-: 
CMP 
BEQ 
JSR 
JSR 
.WORD 

MOV 
MOV 
MOV 

c:.-.-^B 

BEQ 
JSR 
JSR 
. WORD 

MCVB 
TSTB 
MOV 

ccr/.B 

BPL 
J^';P 
INC 
BIT 
BEQ 
JMP 



*AE , 
RO, 
65$ 
PC, 



SPRNTP 
SERROR 



SPRNTO 
SERROR 



RO, 

(R2) 

^■253, 

OEFLG 

27$ 

WWPB2 

R2 

R5, 

30$ 

WWPB1 

PC, 

PC, 



RO ;CLEAR THE ACTION ENABLE BIT IN TEST DATA. 

. R1 ;CO;."PARE THE CHECK WORD WITH THE DATA READ. 

; BRANCH OVEF ERROR CALL IF GOOD DATA. 
;SET UP VALUES FOR ERROR PRINTING. 
;*»* ERROR *** (GO TYPE A MESSAGE) 
•.ERROR TYPE CODE. 

;CLEAR ALL BUT ACTION ENABLE. 
; GET DATA READ FROM MEMORY FOR TESTING. 
; ; POP STACK INTO RO 
;CH£CK THE DATA. 

; BRANCH OVEP ERROR CALL IF GOOD DATA. 
•,SET UP VALUES FOR ERROR PRINTING. 

ERROR *■** (GO TYPE A MESSAGE) 
•.ERROR TYPE CODE. 

(R2) IRESTORE DATA. 

;D0 A DATI TO BE SURE RIGHT PARITY. 
RO ;SET ODD PAMTY DATA. 

;CHECK IF DONE BOTH ODD AND EVEN PARITY. 

; BR IF BONE BOTH EVEN AND ODD. 

•, LOOP BACK AND DO ODD(PARITY BIT CLR). 

;M0VE POINTER TO NEXT MEMORY BYTE. 
R2 •.CHECK FOR END OF BLOCK. 

;BR IF END OF BLOCK FOUND. 

;LOOP BACK TO TEST NEXT BYTE. 
MMUP ;FIND NEXT BLOCK AND LOOP TO WWPBYT 

MAMF ;G0 RESET PARITY REGISTERS. 
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2547 








; ; i * # ^ <«. 




W It, «< «< 4 « « <(. « 






2548 








•,»TEST 


20 


RANDOM 


DATA TESTING THRU PPOGRAM CODE RELOCATION. 


2549 








; 








2550 


12462 






TST20: 










2551 


01 2452 


004567 


006142 




JSR 


R5, 


SSCOPE 


GO TO SCOPE ROUTINE. 


2552 


012466 


000000 






.WORD 







NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 


2553 


01 2470 


01 0703 




RmNTST: 


MOV 


PC, 


R3 


GET CURRENT PROGRAM COUNTER. 


2554 


012472 


0^-2703 


007777 






/r7777, 


R3 


POINT TO BEGINNING OF CURRENT 2K BLOCK. 


2555 


012476 


0C4467 


001724 




JSR 


R4, 


INITMM 


INITIALIZE THE MEMORY ADDRESS POINTERS. 


2556 


012302 


01 0246 




1$: 


MOV 


R2, 


-(SP) 


SAVE MEMORY POINTER. 


2557 


C 1 2504 


01 0346 






MCV 


R3, 


-(SP) 


SAVE "DATA" POINTER. 


2558 


012506 


01 2322 




2$: 


MOV 


(R3)+, 


(R2) + 


MOV CODE INTO TEST MEMORY. 


2559 


012510 


032703 


007777 




BIT 


#7777, 


R3 


CHECK FOR END OF "DATA TABLE" 


2560 


012514 


0C1002 






BNE 


3$ 




BRANCH IF VORE 


2561 


012516 


162703 


010000 




SUB 


10000, 


R3 


RESET POINTER TO START OF "RANDOM DATA" 


25S2 


012522 


0:05C2 




3$: 


BIT 


R5, 


R2 


CHECK FOR END OF BLOCK 


2563 


012524 


001370 






BNE 


2S 




BRANCH IF ^'ORE. 


2564 


012526 


01 2603 






MOV 


(SP)+, 


R3 


RESET "DATA" POINTER. 


2565 


01 2530 


01 2602 






MOV 


(SP)+, 


R2 


RESET MEMDt^Y POINTER. 


2566 


012532 


01 2300 




4S: 


MOV 


(R3)+. 


RO 


GET S/B DATA. 


2567 


012534 


01 2201 






MOV 


(R2)+, 


R1 


GET THE DATA FROM MEMORY UNDER TEST. 


2568 


012535 


020001 






CMP 


RO, 


R1 


COMPARE THE CHECK WORD WITH THE DATA READ 


2569 


01 2540 


001405 






BEO 


65$ 




BRANCH OVEP ERROR CALL IF GOOD DATA. 


2570 


012542 


004767 


005620 


64$: 


USR 


PC, 


SPRNT2 


SET UP VALUES FOR ERROR PRINTING. 


2571 


C12546 


0C4767 


007066 




JSR 


PC, 


SERROR 


*** ERROR *•* (GO TYPE A MESSAGE) 


2572 


012552 


000020 






• WORD 


20 




ERROR TYPE CODE. 


2573 


012554 






65$: 










2574 


012554 


032703 


007777 




BIT 


#7777, 


R3 


CHECK FOR END OF "DATA TABLE" 


2575 


012560 


001002 






BNE 


5S 




BR IF MORE. 


2576 


012562 


162703 


010000 




SUB 


#10000, 


R3 


RESET POINTER TO TOP OF "DATA TABLE". 


2577 


012566 






5S: 










2578 


012566 


030502 






BIT 


R5, 


R2 


CHECK FOR END OF A BLOCK. 


2579 


012570 


001360 






BNE 


4$ 




BRANCH IF MORE IN CURRENT BLOCK. 


2580 


012572 


004767 


0024r-5 




JSR 


PC, 


MMUP 


FIND NEXT BLOCK AND LOOP TO 1$. 



CZQMCFO 


0-1 24K ^■EMORY 


EXERCISER, 


CZOMCF . 


PI 1 


14-FEB-78 


08: 19 


2581 








2532 








2583 








2584 








25S5 








2586 








2587 








2588 








2589 








2590 








2591 








2592 








2593 








2594 








2595 








2596 








2597 








2598 








2599 








2600 








2G01 








2602 








2603 








2604 








2605 








2606 








2607 


012576 






2608 


01 2576 


004567 


006026 


2609 


012502 


0C0003 




2610 








261 1 


CI 2604 


000167 


000056 


2512 








2613 


012610 


C 27C3 


010412 


2614 


012614 


01 2704 


000205 


2615 


CI 2620 


01 04C0 




2616 


01 2522 


004467 


001600 


261 7 


012625 


0^ 0322 




2613 


012G3C 


01 0412 




2619 


012632 


004542 




2620 


012634 


0' 22C1 




2621 


012e36 


0200C-1 




2622 


012640 


CO 1405 




2623 


01 2642 


0C4767 


005514 


2624 


01 2546 


0C47'^7 


006765 


2625 


01 2652 


0C0021 




2625 


012654 






2627 


012654 


Ci 0322 




2628 


012356 


C30502 




2629 


01 2ye0 


001363 




2630 


012662 


0U4767 


002316 



I6K VER 

SECTION 
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.SBTTL SECTION 3: 



INSTRUCTION EXECUTION TESTS. 



►TEST 21 EXECUTE DATI, DATO THRU MEMORY. 

* EXECUTES THE INSTRUCTION 'MOV R4,(R2)' THROUGHOUT MEMORY. 

y AN 'RTS R5' (CODE 205) IS PLACED AFTER THE 'MCV INSTRUCTION TO RETURN 

► CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 

► THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 



INSTRUCTION 
PLACED THERE 



010412 
000205 



010412 
000205 



000205 
000205 



MEMORY 
LOCATION 



1ST PASS / 40000 
THRU TEST / 40002 



2ND PASS / 40002 
THRU TEST / 40004 



ETC., ETC., ETC. 

RO * DATA WRITTEN ON TOP OF lUT BY THE lUT (SHOULD BE). 

R1 - DATA READ FROM MEMORY (WAS). 

R2 = ADDRESS OF lUT/DATA. 

R3 = INSTRUCTION UNDET? TEST (lUT). 

R4 = RTS R5 (CODE 205). 

R5 = BLOCK BOUNDRY BIT MASK. 



CONTENTS OF MEMORY LOCATION 
AFTER INSTRUCTION EXECUTION 



000205 
000205 



64S: 
65S: 



JSR 


R5, 


SSCOPE 


GO TO SCOPE ROUTINE. 


.WORD 


3 




MINIMUM BLOCK SIZE OF 2 WORDS 








REQUIRED FOR THIS TEST. 


JMP 


TST22 




SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 








AVAILABLE FOR TEST. 


MCV 


#010412, R3 


GET 'MOV R4,(R2)' INSTRUCTION (lUT). 


MOV 


#205, 


R4 


GET 'RTS R5' 


MOV 


R4, 


RO 


SET UP S/3 DATA AFTER EXECUTION. 


JSR 


R4, 


INITMM 


INITIALIZE THE MEMORY ADDRESS POINTERS. 


MOV 


R3, 


(R2) + 


PUT lUT INTO FIRST LOG OF BLOCK. 


MOV 


R4, 


(R2) 


PUT' 'RTS R5' FOLLOWING lUT. 


JSr^ 


R5, 


-(R2) 


GO EXECUTE THE lUT. 


MOV 


(R2)+, 


R1 


GET THE DATA FROM THE MEM ADR UNDER TEST. 


CMP 


RO, 


R1 


COr.'lPARE THE CHECK WORD WITH THE DATA READ. 


BEO - 


65$ 




BRANCH OVEF ERROR CALL IF GOOD DATA. 


JSR 


PC, 


SPRNT3 


SET UP VALUES FOR ERROR PRINTING. 


JSR 


PC, 


SERROR 


*** ERROR *** (GO TYPE A MESSAGE) 


.WORD 


21 




ERROR TYPE CODE. 


MCV 


R3, 


(R2) + 


PUT THE lUT INTO THE NEXT LOCATION. 


B'-T 


R5, 


R2 ;CHECK FOR END OF A BLOCK. 


BNE 


2$ 


: BRANCH IF MORE IN CURRENT BLOCK. 


JSR 


PC, 


MMUP ;FIND NEXT BLOCK AND LOOP TO 1$. 
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2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2655 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2654 
2665 
2666 
2657 
2668 
2669 
2670 
2571 
2572 
2573 
2674 
2675 
2676 
2677 
2678 
2679 



012566 
01 2666 
01 2672 



012700 
012704 
012710 
012714 
01 2720 
012722 
012724 
012726 
012730 
012732 
012734 
01 2740 
012744 
01 2746 
012746 
012750 
012752 
012754 



0G4567 
000003 



012674 000167 000060 



O: 2703 
01 2704 
0-. 2700 
004467 
01 0322 
01 0412 

00 454 2 
01 2201 
0200C1 
0014C5 
004767 
C04767 
000021 

1 0322 
020502 
001363 
004767 



1 10412 
000205 
1 10605 
001506 



005422 
006674 



*TEST 22 EXECUTE DAT I. DATCB (LOW BYTE) THSU ME-MORY. 

* EXECUTES THE INSTRUCTICN 'f.lOvB R4,{R2)' THROoCHOUT MEMORY. 

* AN 'RTS RE' (CODE 205,i IS PuACED AFTER THE 'MCVB' INSTRUCTION TO RETURN 
" CONTROL TO THE MAIN PRCGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 

* THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 



MEMDRr 
LOCATION 



1ST PASS / 
THRU TF"^" / 



2ND PASS 
THRU TEST 



40000 
40002 



40002 
40004 



INSTRUCTION 
PLACED THERE 



1 10412 
000205 



CONTENTS OF MEMORY LOCATION 
AFTER INSTRUCTION EXECUTION 



1 10605 
000205 



1 1 041 2 
000205 



1 10605 
000205 



ETC. 



ETC., ETC. 



DATA WRITTEN ON TOP OF lUT BY THE lUT {SHOULD BE). 
DATA READ FROM MEMORY (WAS). 
ADDRESS OF lUT/DATA. 
INSTRUCTION UNDER TEST (lUT). 



RTS R5 


(CODE 


205) . 




- BLOCK 


BOUNDRY 


BIT MASK. 










JSR 


R5, 


SSCOPE 


GO TO SCOPE ROUTINE. 


.1, JRD 


3 




MINIMUM BLOCK SIZE OF 2 W0RC3 








REQUIRED FOR THIS TEST. 


JMP 


TST23 




SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 








AVAILABLE FOR TEST. 


MOV 


^(1 1041 


2 , R3 


GET 'MOVE P4,(R2)' INSTRUCTION (lUT). 


MCV 


<?205, 


R4 


GET 'RTS R5' 


MOV 


#1 10605, RO 


SET UP S/B DATA AFTER EXECUTION. 


JSR 


R4, 


IN. TMM 


INITIALIZE THE MEMORY ADDRESS POINTERS. 


MOV 


R3, 


(R2) + 


PUT lUT INTO FIRST LOC OF BLOCK. 


MCV 


R4, 


(R2) 


PUT 'RTS R5' FOLLOWING lUT. 


JSR 


R5, 


-(R2) 


GO EXECUTE THE lUT. 


MCV 


(R2)+. 


R1 


GET THE DATA FROM THE MEM ADR UNDER TEST. 


CMP 


RO, 


R1 


COMPARE THE CHECK WORD WITH THE DATA READ. 


BEO 


65$ 




BRANCH OVEP ERROR CALL IF GOOD DATA. 


JSR 


PC, 


SPRNT3 


SET UP VALUES FOR ERROR PRINTING. 


JSR 


PC, 


SERROR 


*** ERROR *** (GO TYPE A MESSAGE) 


.WORD 


21 




ERROR TYPE CODE. 


MOV 


R3, 


(R2) + 


PUT THE lUT INTO THE NEXT LOCATION. 


BIT 


R5, 


R2 


CHECK FOR END OF A BLOCK. 


BNE 


2S 




BRANCH IF MORE IN CURRENT BLOCK. 


dSR 


PC, 


MMUP 


FIND NEXT BLOCK AND LOOP TO 1$. 



CZQMCFO 
CZQMCF . PI 1 



2680 
2681 
2682 
2683 
2534 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
271 1 
2712 
2713 
2714 
2715 
2716 
271 7 
2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
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14-FEB-78 08:i9 



16K VER 
T23 
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^TEST 23 EXECUTE DATI, DATOB (HIGH BYTE) THRU MEMORY. 

» EXECUTES THE INSTRUCTION 'MOVB R3,-(R2)' THROUGHOUT MEMORY. 

t AN 'RTS R5' (CODE 205) IS PLACED AFTER THE 'MCVB' INSTRUCTION TO RETURN 

^ CONTROL TO THE MAIN PRCGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 

' THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 



MEMORY 
LOCATION 



1ST PASS / 40000 
THRU TEST / 40002 



2ND PASS / 40002 
THRU TEST / 40004 



INSTRUCTION 
PLACED THERE 



1 1 0342 
000205 



CONTENTS OF MEMORY LOCATION 
AFTER INSTRUCTION EXECUTION 



161342 
000205 



1 1 0342 
000205 



151342 
000205 



ETC. 



ETC. 



ETC. 



da: , WRITTEN ON TOP OF lUT BY THE lUT (SHOULD BE). 
DATA READ FROM MEMORY (WAS). 
ADDRESS OF lUT/DATA. 
INSTRUCTION UNDER TEST (lUT). 









;* R4 


= RTS R5 


(CODE 


205') . 










;* R5 


= BLOCK 


BOUNDRY 


PIT MASK. 


















012760 






fsT23: 










012760 


004567 


005644 




JSR 


R5, 


SSCOPE 


GO TO SCOPE ROUTINE. 


012764 


000003 






.WORD 


3 




MINIMUM BLCCK SIZE OF 2 WORDS 
REQUIRED FOR THIS TEST. 


012756 


000167 


000064 




JMP 


TST24 




SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 
AVAILABLE FOR TEST. 


012772 


01 27C3 


1 1 0342 


DID3H: 


MCV 


#1 10342, R3 


GET 'MOVB P3.-(R2)' INSTRUCTION (lUT). 


012776 


01 27C4 


000205 




MCV 


f.'205, 


R4 


GET 'RTS R5' 


013002 


0-. 27C0 


161342 




MOV 


#151342,R0 


SET UP S/B DATA AFTER EXECUTION. 


01 3005 


004467 


001414 




JSR 


R4 , 


INITMM 


INITIALIZE THE MEMORY ADDRESS POINTERS. 


013012 


01 0322 




IS: 


MCV 


R3, 


( R2 ) + 


PUT lUT INTO FIRST LOC (F BLOCK. 


013C14 


01 0412 




2S: 


MCV 


R4 , 


tR2) 


PUT 'RTS R5' FOLLOWING lUT. 


01 3016 


004562 


1 77776 




d5R 


R5, 


~2(R2) 


GO EXECUTE THE lUT. 


01 3022 


005302 






DEC 


R2 




ADJUST R2 TO POINT TO MAUT . 


013024 


0-. 2201 






MOV 


(R2)+, 


R1 


GET THE DATA FROM THE MEM ADR UNDER TEST. 


013026 


0200C 1 






CMP 


RO , 


R1 


COMPARE THE CHECK WORD WITH THE DATA READ. 


01 3030 


0014C5 






BEO 


65S 




BRANCH OVER ERROR CALL IF GOOD DATA. 


01 3032 


004767 


005324 


64 S: 


JSR 


PC, 


5PRNT3 


SET UP VALUES FOR ERROR PRINTING. 


01 3035 


0047' 7 


006576 




JSR 


PC, 


SERROR 


*** ERROR *** (GO TYPE A MESSAGE) 


01 3042 


000021 






.WORD 


21 




ERROR TYPE CODE. 


01 3044 






65$: 










01 3044 


01 0322 






MOV 


R3, 


( R2 ) + 


PUT THE lUT INTO THE NEXT LOCATION. 


01 3046 


030502 






B" T 


R5, 


R2 


CHECK FOR END OF A BLOCK. 


01 3050 


00 1361 






BNE 


2$ 




BRANCH IF MORE IN CURRENT BLOCK, 


013052 


004767 


002126 




JSR 


PC, 


MMUP 


FIND NEXT BLOCK AND LOOP TO 1$. 
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730 



2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
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T24 EXECUTE DATI, DATIP, DATO THRU MEMORY. 



EST 24 EXECUTE DATI, DATIP, DATO THRU MEMORY. 

EXECUTES THE INSTRUCTION 'NEG (R2)' THROUGHOUT MEMORY. 

AN 'RTS R5' (COCI 205) IS PLACED AFTER THE 'NEG' INSTRUCTION TO RETURN 
CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 
THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 



MEMORY 
LOCATION 



40000 
40002 



,ST PASS / 
THRU TEST / 



2ND PASS / 40002 
THRU TEST / 40004 



INSTRUCTION 
PLACED THERE 



005412 
000205 



CONTENTS OF MEN'.JRY LOCATION 
AFTER INSTRUCTION EXECUTION 



172366 
000205 



005412 
000205 



172366 
000205 



ETC. 



ETC., ETC. 



R2 
R3 



2754 
















2755 


013056 






TST24: 








2756 


013055 


004567 


005546 




JSR 


R5, 


SSCOPE 


2757 


013062 


000003 






• WORD 


3 




2758 
















2759 


013064 


0C0167 


000060 




JMP 


TST25 




2760 
















2761 


013070 


0-; 27C3 


005412 


DIPDO: 


MOV 


#005412, R3 


2762 


013074 


01 2704 


000205 




MOV 


#205, 


R4 


2753 


013100 


01 2700 


1723c3 




MOV 


#172366, RO 


2764 


01 31 04 


004467 


001316 




JSR 


R4, 


INITMM 


2765 


013110 


01 0322 




IS: 


MCV 


R3, 


(R2) + 


2766 


013112 


010412 




2S: 


MOV 


R4. 


(R2) 


2767 


0131 14 


004542 






JSR 


R5, 


-(R2) 


2768 


013115 


01 2201 






MOV 


(R2)-H, 


R1 


2759 


01 31 20 


020001 






CU.P 


RO, 


R1 


2770 


013122 


001405 






BEO 


65S 




2771 


0131 24 


004767 


005232 


64$: 


JSR 


PC, 


SPRNT3 


2772 


0131 30 


004767 


006504 




JSR 


PC, 


SERROR 


2773 


01 31 34 


0C0021 






.WORD 


21 




2774. 


01 31 36 






65S: 








2775 


013136 


01 0322 






MOV 


R3, 


(R2) + 


2776 


013140 


030502 






BIT 


R5, 


R2 


2777 


013142 


001363 






BNE 


2$ 




2778 


013144 


004767 


002034 




JSR 


PC, 


MMUP 



DATA WRITTEN ON TOP OF lUT BY THE lUT (SHOULD BE). 
DATA READ FROM MEMORY (WAS). 
ADDRESS OF lUT/DATA. 
INSTRUCTION UNDER TEST (lUT), 
RTS R5 (CODE 205). 
BLOCK BOUNDRY BIT MASK. 



GO TO SCOPE ROUTINE. 

MINIMUM BLOCK SIZE OF 2 WORDS 

REQUIRED FOR THIS TEST. 
SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 

AVAILABLE FOR TEST. 
GET 'NEG (P2)' INSTRUCTION (lUT). 
GET 'RTS R5' 

SET UP S/B DATA AFTER EXECUTION. 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
PUT lUT INTO FIRST LOG OF BLOCK. 
PUT 'RTS R5' FOLLOWING lUT. 
GO EXECUTE THE lUT. 

GET THE DATA FROM THE MEM ADR UNDER TEST. 
COMPARE THE CHEC - WORD WITH THE DATA READ. 
BRANCH OVEP ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
**• ERROR ♦*» (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

;PUT THE lUT INTO THE NEXT LOCATION. 
;CHECK FOR END OF A BLOCK. 
; BRANCH IF MORE IN CURRENT BLOCK. 
; FIND NEXT BLOCK AND LOOP TO 1$. 



C20MCF0 ( 
CZ0MCF.P11 



-124K MEMORY EXERCISER, 
14-FEB-78 08:19 



16K VER 
T25 
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EXECUTE DATI, DATI, DATIP, DAT03 (LOW BYTE) THRU MEMORY. 



2779 






27B0 






2781 






2782 






2783 






2784 






2785 






2786 






2787 






2788 






2789 






2790 






2791 






2792 






2793 






2794 






2795 






2796 






2797 






2798 






2799 






2800 






2801 






2802 






2803 






2604 


013150 




2805 


013150 


004567 


2805 


013154 


0000C3 


2807 






2808 


013156 


000167 


2809 






2810 


013162 


01 27C3 


281 1 


013166 


01 27C4 


2812 


01 31 72 


0- 27C0 


2813 


013176 


004467 


2814 


01 3202 


01 0322 


2815 


013204 


0; 041 2 


2816 


013206 


00 454 2 


281 7 


013210 


0^ 22C 1 


2818 


013212 


020001 


2819 


013214 


0C14C5 


2820 


013216 


004767 


2821 


013222 


004767 


2822 


013226 


CG00J1 


2823 


0132 30 




2824 


C13230 


01 0322 


2825 


013232 


030502 


2026 


013234 


001363 


2827 


013236 


0C4767 



000060 

142242 
000205 
142000 
001224 



005140 
006412 



^TEST 25 EXECUTE DATI, DATI, DATIP. DATOB (LOW BYTE) THRU MEMORY. 

^ EXECUTES THE INSTRUCTION BICB (R2)+,-(R2)' THROUGHOUT MEMORY. 

» AN 'RTS R5' (CODE 205) IS PLACED AFTER THE BICB' INSTRUCTION TO RETURN 

f CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 

* THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 



MEMORY 
LOCATION 



1ST PASS / 40000 
THRU TEST / 40002 



2ND pASS / 40002 
THRU TEST / 40004 



INSTRUCTION 
PLACED THERE 



142242 
000205 



CONTENTS OF MEMORY LOCATION 
AFTER INSTRUCTION EXECUTION 



142000 
0C0205 



142242 
000205 



142000 
000205 



ETC., ETC. 



ETC. 



DAi« WRITTEN ON TOP OF lUT BY THE lUT (SHOULD BE). 
DATA READ FROM MEMORY (WAS). 
ADDRESS OF lUT/DATA. 
INSTRUCTION UNDER TEST (lUT). 



RTS R5 


(CODE 


205) . 




BLOCK 


BOUNDRY 


BIT MASK. 












JSR 


R5, 


SSCOPE 


GO TO SCOPE ROUTINE. 


. WORD 


3 




MINIMUM BLOCK SIZE OF 2 WORDS 








REQUIRED FOR THIS TEST. 


JMP 


TST26 




SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 








AVAILABLE FOR TEST. 


M0^' 


#142242 ,R3 


GET E,ICB (P2) + ,-(R2)' INSTRUCTION (lUT). 


MOV 


#205, 


R4 


GET 'RTS R5' 


MOV 


#142000 ,R0 


SET UP S/B DATA AFTER EXECUTION. 


JSR 


R4, 


INI TMM 


INITIALIZE THE MEMORY ADDRESS POINTERS. 


MOV 


R3. 


(R2) + 


PUT lUT INTO FIRST LOG CF BLOCK. 


MCV 


R4, 


(R2) 


PUT- 'RTS R5' FOLLOWING lUT. 


J?T 


R5, 


-(R2) 


GO EXECUTE THE lUT. 


MCV 


(R2)+, 


R1 


GET THE DATA FROM THE MEM ADR UNDER TEST. 


CMP 


RO, 


Rl 


COMPARE THE CHECK WORD WITH THE DATA READ. 


BEO 


65$ 




BRANCH OVEP ERROR CALL IF GOOD DATA. 


JSR 


PC, 


SPRNT3 


SET UP VALUES FOR ERROR PRINTING. 


JSR 


PC, 


SERROR 


ERROR *** (GO TYPE A MESSAGE) 


. WORD 


21 




ERROR TYPE CODE. 


MCV 


R3, 


(R2) + 


PUT THE lUT INTO THE NEXT LOCATION. 


BIT 


R5, 


R2 


CHECK FOR END OF A BLOCK. 


B.:d 


2$ 




BRANCH IF MORE IN CURRENT BLJCK. 


JSR 


PC, 


MMUP 


FIND NEXT BLOCK AND LOOP TO 1$. 



t 



CZOMCFO 
CZQMCF . P 



124K ^',EV,ORY EXERCISER, 
14-FEB-78 OB: 19 



16K VER 
T26 



MACYll 30A(1052) 20-FEK 
EXECJT E DATI , DAT I , DAT i 



8 07:56 PAGE 60 
DATOB (HIGH BYTE) THRU MEMORY. 



2828 






2829 






2830 






2831 






2832 






2833 






2034 






2835 






2836 






2837 






2838 






2839 






2840 






2841 






2842 






2843 






2844 






2845 






2846 






2847 






2848 






2849 






2850 






2851 






2852 






2853 


01 3242 




2854 


01 3242 


004567 


2855 


01 3246 


000003 


2856 






2857 


01 3250 


C001 67 


2858 






2859 


01 3254 


01 2703 


2860 


01 3260 


01 27C4 


2861 


013264 


0'. 27C0 


2862 


013270 


0C4467 


2863 


01 3274 


01 0322 


2864 


01 3276 


0-, 0412 


2865 


013300 


004542 


2866 


01 3302 


0053C2 


2867 


013304 


01 2201 


2868 


013306 


020001 


2669 


013310 


001405 


2870 


01 33 1 2 


004767 


2871 


013316 


004767 




013322 


000021 


2873 


013324 




2874 


013324 


01 0322 


2875 


013326 


030502 


2876 


013330 


C01362 


2^11 


013332 


004767 



000062 

152212 
000205 
157212 
001 132 



005044 
006316 



*TEST 26 EXECUTE DATI, DATI, DATIP, DATOB (HIGH BYTE) THRU MEMORY. 

* EXECUTES THE INSTRUCTION '3ISB (R2)+,(R2)' THSOUGHOUT MEMORY. 

* AN 'RTS RL' (CODE 205) IS PLACED AFTER THE 'BISB' INSTRUCTION TO RETURN 

* CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 

* THIS IS AN EXAMPLE CF WHAT THIS TEST DOES IN RELATION TO MEMORY: 



MEMORY 
LOCAT ION 



1ST PASS / 
THRU TF": ■ / 



2ND PASS / 
THRU TEST / 



40000 
40002 



40002 
40004 



INSTRUCTION 
PLACED THERE 



1 52212 
00020!L 



CONTENTS OF MEMORY LOCATION 
AFTER INSTRUCTION EXECUTION 



157212 
000205 



152212 
000205 



157212 
000205 



ETC 



ETC. 



ETC. 



DATA WRITTEN ON TOP OF lUT BY THE lUT (SHOULD BE). 
DATA READ FROM MEMORY (WAS). 
ADDRESS OF lUT/DATA. 
INSTRUCTION UNDER TEST (lUT). 



RTS R5 


(CODE 


205) . 




BLOCK 


BOUNDRY 


BIT MASK. 












JSR 


R5, 


SSCOPE 


;G0 TO SCOPE ROUTINE. 


.WORD 


3 




;MINIMUM BLOCK SIZE OF 2 V^ORDi 








; REQUIRED FOR THIS TEST. 


JMP 


TST27 




;SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 








; AVAILABLE FOR TEST. 


MOV 


*152212,R3 


;GET 'BISB (R2)+,(R2)' INSTRUCTION (lUT). 


MOV 


#205, 


R4 


;GET 'RTS R5 ' 


MOV 


w157212,ft0 


;S£T UP 5/B DATA AFTER EXECUTION. 


dSR 


R4, 


in:tmm 


; INITIALIZE THE MEMORY ADDRESS POINTERS. 


MOV 


R3, 


(R2) + 


;PUT lUT INTO FIRST LOG OF BLOCK. 


MOV 


R4 , 


(R2) 


;?UT 'RTS R5' FOLLOWING lUT. 


USR 


R5, 


■-(R2) 


•,G0 EXECUTE THE lUT. 


DEC 


R2 




■.RESET R2 TO POINT TO lUT. 


MOV 


(R2)+, 


R1 


;GET THE DATA FROM THE MEM ADR UNDER TEST. 


CMP 


RO, 


R1 


; COMPARE THE CHECK WORD WITH THE DATA READ 


BEO 


65$ 




; BRANCH OVER ERROR CALL IF GOOD DATA, 


JSR 


PC, 


SPRNT3 


;SET UP VALUES FOR ERROR PRINTING. 


dSR 


PC, 


5ERR0R 


, ERROR *** (GO TYPE A MESSAGE) 


.WORD 


21 




;ERROR TYPE CODE. 


MOV 


R3, 


(R2) + 


PUT THE lUT INTO THE NEXT LOCATION. 


BIT 


R5, 


R2 


CHECK FOR END OF A BLOCK. 


BNE 


2$ 




; BRANCH IF MORE IN CURRENT BLOCK. 


USR 


PC, 


MMUP 


FIND NEXT BLOCK AND LOOP TO IS. 



CZOMCFO 


0-12 


4K MEMORY 


EXERCISER, 


16K VEP 




ma^:y 1 1 


30A(1052) 20-FEB 


-78 07:56 PAGE 61 


CZOMCF . 




14-F EB-78 


08: 19 


SECTION 


4:MCS 7 


ESTS 




2878 










SB 


T T L 


SECTION 


4:M0S TESTS 




2879 




















2880 










»T 


EST 


27 


MARCHING 1 ' 5 AND 


O'S. 


2881 












1 h I S 


TEST IS 


DESIGNED TO STRE 


5S MQS MEMORIES. 


2882 












STAR 


TING AT 


THE BCTTCM ADDRESS AND ADDRESSING UPWARDS A 4K BANK IS 


2883 














TEN WITH 


000377 . TrlEN STARTING AT THE TOP ADDRESS OF THE BANK THE 


2384 












0003 


77 IS READ, THE BvTES A.^E 


S.-.'APPED TO 177400 AND THE LOCATION 


2885 












R E R i: 


AD ~0 CONFIRM THE WRITE. T 


His IS REPEATED FOR EVERY LOCXTION 


2686 












ACDR 


lSSED DOWNv'.'ARD UNTIL THE 


BOTTOM IS REACHED. STARTING AT THE 


2387 












BOTTOM EACK 


LOCATION IS READ 


FOR 177400, THE BYTES ARE SWAPPED TO 


2888 












O: j377 and REREAD TO CGNFIRM 


THE WRITE UNTIL THE TOP ADDRESS OF THE 


2689 














IS REACHED. AGAIN STAR-'! 


NG AT THE BOTTOM EACH LOCATION IS READ 


2690 












FCR 


000377. THE BYTES SWAPPED 


TO 1 77400 A'lD THE LOCATION REREAD TO 


2691 












CCN^- 


IRM THE 


WRITE. LASTL.- STARTING FROM THE TOP AND ADDRESSING DOWN- 


2892 












WARD 


EACH LOCATION IS R'AD.THE BYTES SWAPPED TO 000377 AND THE 


2393 












LOCATION IS 


REREAD TO CCNFIRfvl 


THE WRITE. THIS IS REPEATED FOR EVERY 


2894 










''^4K BANK UNDER 


TEST. 




2895 




















2895 














RO=DATA 


WRITTEN INTO MEM 


ORY(SHOULD BE) 


2897 














R1 =DATA 


READ FROM MEMORY (WAS) 


2898 














R2=VIRT 


UAL ADDRESS 




2899 














R3=TIME 


S THROUGH COUNTER 




2900 














R4=N0T 


USED 




2901 














R5=BLaCK BOUNDARY BIT MASK. 


2902 




















2903 


01 3336 






TST27 : 








2904 


013336 


004567 


005266 








dSR 


R5, $SCOPE 


;G0 TO SCOPE ROUTINE. 


2905 


01 3342 


OOOOCO 










. WORD 





;N0 MINIMUM BLOCK SIZE REQUIRED THIS TEST. 


2906 


01 3344 


CC4467 


001056 








JSR 


R4, INITMM 


; INITIALIZE THE MEMORY ADDRESS POINTERS. 


2907 


01 2350 


0- 0267 


166240 








MOV 


R2 , TEMP 


;SAVE BANK STARTING ADDRESS 


2908 


01 3354 


005003 




1$: 




CLR 


R3 


;CLEAR PASS COUNTER 


2909 


01 3356 


0- 2700 


000377 








MOV 


iV000377 , RO 


;SETUP TO WPITE PATTERN 


2910 


013362 


, 0022 




2S: 




MOV 


RO, (R2)+ 


: WRITE PATTERN 


291 1 


013364 


03 0502 










BIT 


R5 , R2 


;END OF 4K? 


2912 


01 3366 


001375 










BNE 


2$ 


•.CONTINUE WRITING IF NO. 


2913 


01 3370 


01 4201 




as: 




MOV 


-(R2) , R1 


;GET DATA WPITEN 


2914 


01 3372 


0200C 1 










CMP 


RO , R1 


;C0^.:PARE THE CHECK WORD WITH THE DATA READ. 


2915 


01 3374 


CO 1405 










BEQ 


655 


; BRANCH OVER ERROR CALL IF GOOD DATA. 


2916 


13375 


004767 


004764 


64 S 




JSR 


PC, SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 


2917 


013402 


0l;47£7 


006232 








JSR 


PC, SERROR 


ERROR (GO TYPE A MESSAGE) 


2918 


01 34C6 


00001 










. WORD 


1 


;ERROR TYPE CODE. 


2919 


1 34 1 






65$ 










2920 


1 34 1 


0C0300 




4S: 




SWAB 


RO 


; SWAP BYTES OF DATA 


2921 


13412 


0012 










MOV 


RO, (R2) -.WRITE S 


WAP P ED WORD 


2922 


1 34 14 












MOV 


(R2),R1 


;GET DATA WHITEN 


2923 


01 34 1 6 


020CC1 










CMP 


RO , R1 


; COMPARE THE CHECK WORD WITH THE DATA READ, 


2924 


1 3420 


00 1 405 










BEO 


67$ 


•.BRANCH OVEs ERROR CALL IF GOOD DATA. 


2925 


01 3422 


004767 


004740 


66$ 




JSR 


PC, 5PRNT2 


;SET UP VALUES FOR ERROR PRINTING. 


2925 


01 34 26 


0C4767 


006206 








JSR 


PC, SERROR 


ERROR (GO TYPE A MESSAGE) 


2927 


01 34 32 


o;;ooio 










.WORD 


1 


;ERROR TYPE CODE. 


2928 


1 34 34 






67$ 










2929 


134 3m 


000300 










SWAP 


RO 


;PUT DATA BACK TO ORINGINAL 


2930 


01 34 36 


C057C3 










T£ 1 


R3 


; I F ON PASS OR PASS 3 


2931 


01 344 


00 1 403 










BEQ 


5S 


;W£ ARE ADDRESSING DOWN 


2932 


01 3442 


020327 


000003 








CMP 


R3,#3 


; I F On PASS 1 OR 2 GO TO 


2933 


01 3446 


C01010 










BNE 


6$ 


: UPWAPn 



C20MCF0 Q-124K f/EMDRY EXERCIS|R, 
C20MCF.P11 14-FEB-78 08:i9 



2934 


013450 


030502 


2935 


C 13452 


0C1346 


2936 


013454 


005203 


2937 


013456 


022703 


2938 


013462 


001427 


2939 


013464 


000300 


2940 


013466 


000404 


2941 


013470 


062702 


2942 


013474 


0305G2 


2943 


013476 


00141 1 


2944 


013500 


01 1201 


2945 


013502 


020001 


2946 


013504 


001405 


2947 


013506 


004767 


2948 


013512 


004767 


2949 


013516 


000010 


2950 


013520 




2951 


013520 


000733 


2952 


013522 


005203 


2953 


013524 


000300 


2954 


013526 


020327 


2955 


013532 


001316 


2956 


013534 


016702 


2957 


013540 


000757 


2958 


013542 


004467 


2959 


013546 


004767 


2960 






2951 






2962 






2963 






2964 






2965 






2966 






2967 






2968 






2969 






2970 






2971 






2972 






2973 






2974 


013552 




2975 


013552 


004567 


2976 


013556 


000000 


2977 


013560 


0044C7 


2978 


013564 


01 2700 


2979 


013570 


01 0022 


2980 


013572 


005100 


2981 


013574 


030502 


2982 


013576 


001374 


2983 


013600 


004767 


2984 


013604 


Of^SOOS 


2985 


013606 


Oi 2704 


2986 


013612 


005303 


2987 


013614 


001376 


2988 


013616 


005304 


2989 


013620 


001374 



0046f 1 
006122 



000002 
166054 



000660 
001432 



000642 
125252 



16K VER 
T27 



6$: 
7$: 
68$: 



MACY11 30A(1052) 
MARCHING 1 '5 AND 



20'-FEB^78 07:56 PA05 62 



69$: 
8$: 



BIT 

BNE 

INC 

CMP 

BEO 

SWAB ■ 

BR 

ADD 

BIT 

BEQ 

MOV 

CMP 

BEQ 

JSR 

USR 

.WORD 

BR 

INC 

SWAB 

CMP 

BNE 

MOV 

BR 

JSR 

JSR 



R5,R2 

3$ 

R3 

#4,R3 
9$ 
RO 
7$ 

if2,R2 
R5,R2 
8S 

(Ra) ,R1 

RO, 

69$ 

PC, 

PC, 



10 

4$ 
R3 
RO 

R3,#2 

as 

TEMP,R2 ■ 
7$ 

R4, INITMM 
PC.MMUP 



;DONE A PASS? 
; IF NO CONTINUE 

;1F YES INCREMENT PASS COUNTER 
;ARE WE DONE ALL PASSES FOR THIS 4K? 
;IF YES BRAfJCH 
;ELSE SET UP NEW READ WORD 
;G0 TO START OF ADDRESS UP 
JUPDATE TO NEXT ADDRESS 
;DONE A PASS 
; IF YES BRANCH 
;GET DATA WRITTEN 
R1 ! COMPARE THE CHECK WORD WITH THE DATA READ, 

; BRANCH OVER ERROR CALL IF GOOD DATA. 
SPRNT2 ;SET UP VALUES FOR ERROR PRINTING. 
SERROR ;*** ERROR •** (qq TYPE A MESSAGE) 
: ERROR TYPE CODE. 



; INCREMENT PASS COUNTER 

;SET UP NEW READ '"ORD 

; ADDRESSING UP? 

;IF NO GO TO DOm SEQUENCE 

;IF YES RESET ADDRESS TO START 

;Gq TO UP SEQUENCE 

; INITIALIZE MEMORY ADDRESS POINTERS 
;UPDATE TO NEW BANK IF EXISTS 



•TEST 30 WRITE CHECKERBOARD STARTING WITH '125252' DATA. 

* THESE TESTS WRIT| A CHECKERBOARD THROUGHOUT MEMORY, STALL 

* FOR 2 SECOND? THEN CHECK PATTERN TO VERIFY DATA DID NOT 

* DETERIORATE BETWEEN REFRESH CYCLES. 

»• R0 = DATA WRITTEN INTO MEMORY ( SHOULD BE) 

* RIaDATA READ FROM MEMORY (WAS) 

* R2=.iRTUAL ADDRESS 

* R3=SMALL LOOP COuNTER FOR STALL 

* R4=NUM3ER OF TIMES SMALL LOOP DONE 

* RSVBLOCK BOUNDARY BIT MASK. 



JSR 


R5, 


SSCQPE 


;G0 TO SCOPE ROUTINE. 


.WORD 







;N0 MINIMUM BLOCK SIZE REQUIRED THIS TEST 


JSR 


R4, 


INITMM 


INITIALIZE THE MEMORY ADDRESS POINTERS. 


MOV 


#125252 


.RO 


jSETUP DATA PATTERN 


MOV 


RO 


,(R2)+ 


■.WRITE A WORD 


COM 


RO 




; COMPLEMENT DATA 


B'^ 


R5, 


R2 


; CHECK FOR END OF A BLOCK. 


BNE 


IS 




; BRANCH IF MORE IN CURRENT BLOCK. 


JSR 


PC, 


MMUP 


;F1ND NEXT BLOCK AND LOOP TO 1$. 


CLR 


R3 




;SET UP COUNTER FOR STALL 


MOV 


#46, 


R4 


;D0 LOOP 46 TIMES OR 2 SEC. TOTAL. 


DEC 


R3 






BNE 


2$ 






DEC 


R4 






BNE 


2$ 







CZQMCFO 


0-124K MEMORY 


EXERCISER, 


16K VER 


MACY1 1 


30A{1052) 20-FEB 


-78 07:56 PAGE 63 


CZOMCF. 


PI 1 


4-FEB-78 


08: 19 


T30 


WRIi.; 


CHECKERBOARD STARi 


ING WITH '125252' DATA. 


2990 


013522 


004467 


00060Q 




JSR 


R4. 


INITMM 


INITIALIZE THE MEMORY ADDRESS POINTERS, 


2991 


013626 


01 2700 


125252 




MOV 


#125252, RO 


;INIT DATA FOR CHECKING 


2992 


013632 






3$: 










2993 


013632 


01 2201 






MOV 


(R2)+. 


R1 


GET THE DATA FROM MEMORY UNDER TEST, 


2994 


013634 


020001 






CMP 


RO, 


R1 


.COMPARE THE CHECK WORD WITH THE DATA READ. 


2995 


013636 


001405 






BEO 


65$ 




BRANCH OVER ERROR C^LL IF GOOD DATA. 


2996 


01 3540 


004767 


004522 


64$: 


JSR 


PC, 


SPRNT2 


SET UP VALUES FOR ERROR PRINTING. 


2997 


013644 


004767 


005770 




JSR 


PC, 


SERROR 


*** ERROR *»* (GO TYPE A MESSAGE) 


2998 


013650 


000006 






.WORD 


6 




ERROR TYPE CODE. 


2999 


013652 






65$: 










3000 


013652 


005100 






COM 


RO 




) 


3001 


013654 


030502 






BIT 


R5, 


R2 


CHECK FOR END OF A BLOCK, 


3002 


013656 


001365 






BNE 


as 


; BRANCH IF MORE IN CURRENT BLOCK. 


3003 


013660 


004767 


001320 




JSR 


PC, 


MMUP 


FIND NEXT BLOCK AND LOQP TO 1$. 


3004 












« « * « * « « « 




3005 








':*TEST 


31 


WRITE 


CHECKERBOARD STARTING WITH 052525 DATA 


3006 










m « « DC * « « « 






3007 


013664 






TST31 : 










3008 


013664 


004557 


004740 




JSR 


R5, 


SSCOPE 


GO TO SCOPE ROUTINE. 


3009 


013670 


000000 






.WORD 







NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 


3010 


013572 


004467 


000530 




JSR 


R4, 


INITMM 


INITIALIZE THE MEMORY ADDRESS POINTERS. 


301 1 


013576 


01 2700 


052525 




MOV 


#052525, RO 


SETUP DATA PATTERN 


3012 


013702 


010022 




1$: 


MOV 


RO, 


(R2)+ JWRITE A WORD 


3013 


013704 


005UO 






COM 


RO 






3014 


013706 


030502 






BIT 


R5, 


R2 


CHECK FOR END OF A BLOCK. 


3015 


013710 


001374 






BNE 


1$ 




BRANCH IF MORE IN CURRENT BLOCK. 


3016 


013712 


004767 


001266 




JSR 


PC, 


MMUP 


FIND NEXT BLOCK AND LOOP TO 1$. 


3017 


013716 


005003 






CL I 


R3 




SET COUNTER FOR LOOP 


3018 


013720 


01 2704 


000046 




MOV 


#46, 


R4 


DO LOOP 46 TIMES OR 2 SEC. TOTAL 


3019 


013724 


0C5303 




2$: 


DEC 


R3 






3020 


013726 


0' 1376 






BNE 


2$ 






3021 


013730 


005304 






DEC 


R4 






3022 


013732 


001374 






BNE 


2$ 






3023 


013734 


004467 


000466 




JSR 


R4, 


iNI.MM ; INITIALIZE THE MEMORY ADDRESS POINTERS, 


3024 


013740 


01 2700 


052525 




MOV 


#052525, RO JINIT PATTERN FQR CHECKING 


3025 


013744 






3$: 










3026 


013744 


01 2201 






MOV 


(R2)+, 


R1 


GET THE DATA FROM MEMORY UNDER TEST, 


3027 


013746 


020001 






CMP 


RO. 


•R1 


COMPARE THE CHECK WQRD WITH THE DATA READ, 


3028 


013750 


001405 






BEQ 


65$ 




BRANCH OVER ERROR CALL IF GOOD DATA. 


3029 


013752 


004767 


004410 


64$: 


JSR 


PC, 


SPRNT2 


SET UP VALUES FOR ERROR PRINTING. 


3030 


013756 


004757 


005656 




JSR 


PC, 


SERROR 


ERROR *** (GO TYPE A MESSAGE) 


3031 


013752 


000006 






.WORD 


6 




ERROR TYPE CODE. 


3032 


013764 






65$: 










3033 


013754 


005100 






COM 


RO 






J034 


013766 


030502 






BIT 


R5, 


R2 5 CHECK FOR END OF A BLOCK. 


3035 


013770 


001365 






BNE 


3$ 




BRANCH IF MORE IN CURRENT BLOCK. 


3036 


013772 


004767 


001206 




JSR 


PC, 


MMUP 


FIND NEXT BLOCK AND LOOP TO 1$. 
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3037 










.SBTTU 


DONE: 


RELOCATE PROGRAM 


AND REPEAT ALL TESTS. 


3038 


013776 








PONE: 










3039 


01 3776 


004567 


004626 






JSR 


R5. 


ssecPE 


;G0 TO SCOPE ROUTINE, 


3040 


014002 


ocopoo 








.WORD 







;N0 MINir^UM BLOCK SIZg REQUIRED THIS TE$T, 


3041 


014004 


005067 


165160 




TST32". 


CLR 


STIMES 




■.RESET ITERATION COUNTER FOR RESTARTING TEST 


3042 


014010 


1O5067 


165066 






CLRB 


STSTNM 




; RESET TEST NUMBERf 


3043 


014014 


036767 


164562 


165512 


1$: 


BIT 


PRGWAP, 


SAVTST 


;CHECK IF PROGRAM IS IN TEST AREA, 




1 4022 


Op 1 004 










2S 




;8R IF IT PRQG IN ME!\^ TO BE TE5TE0. 


3045 


014024 


036767 


164554 


165504 




BIT 


PRG!V!AP+2,SAVTST + 2 ;CHECK HI 64K 


3046 


014032 


00 1435 






BEO 


$EQP 




;BR IF PROG NOT IN MEM TO BE TESTED. 


3047 


014034 


032777 


poq^oo 


1650-^q 




BIT 


/fSW07, 


fSWR 


;CHECK FOR INHIBIT RELOCATION SWITCH, 


3048 


014042 


001031 




BNC 


$EOP 




;SKIP RELOCATION IF SWITCH SET. 


3049 


014044 


022767 


00QO03 


16^530 




CMP 


/S'3, 


PRGMAP 


;CHECK IF PROGRAM IN FIR^T 8K. 


3050 


014052 


001013 






BNE 


4$ 




;BR IF NOT IN FIRST 8K. 


3051 


014054 


023737 


000042 


000046 




cm 


##4a,P*46 


;CHECK FOR ACT11 


3052 


014062 


P01416 








BEQ 


6$ 




;BR IF ACT1 1 . 


3053 


014064 


105737 


001224 






T5TB 






5 CHECK FOR APT1 1 


3054 


014070 


001013 








BK2 


6$ 




; IF APT1 1 DO NOT RELOCATE 


3055 


















IMUST BE XXDP OR STANDALONE 


3056 


014072 


004767 


002362 






JSR 


PC, 


RELTOP 


•.RELOCATE PROGRAM TO TQP QF MEMORY. 


3057 
3058 


014076 


000167 


17200? 




3$: 


m? 


START1 




J LOOP BACK AND RUN ALL TESTS AGAIN, 


3059 


014102 


004767 


P02754 




4$: 


JSR 


PC, 


RELO 


; RELOCATE pooGRAM ^ACK TO FIRST SK- 


3050 


014105 


O057i7 


000042 






TST 


®#4i 




;TEST FOR 


3061 


014112 


001402 








BEQ 


6$ 




;IF NOT R. iNG UNDER MON . DONT 


3062 


014114 


004767 


003150 




5T-: 


JSR 


PC, 


RESLOR 


;RESTORE L ^DERS. 


3063 


014120 








6$: 










3064 


0141^0 


0P4567 


007366 






JS.R 


R5. 


SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE- 


3065 


014124 


001201 








• WORD 


$CR(,F 




; ADDRESS OF MESSAGE TO BE TYPED 



C20MCF0 


0-1 24K MEMORY 


EXERCISER, 16K 


VER 
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-78 07:56 PAGE 65 
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DONE: 


RELOCATE PROGRAM AND REPEAT ALL TESTS. 


3066 
















3067 


















3068 










.S8TTI, 


END OF 


PASS ROUTINE 




3069 
















3070 










•.♦INCREVENT THE PASS NUWSpR ($PASS) 


3071 










;*TYPE 


"END PASS #XXXXX" (WHERE XXXXX IS A DECI|VIAL NUM8ER) 


3072 










;*IF THERES A MONITOR GO TO IT 




3073 










:*IF THERr ISN' 


T JUMP TO START1 




3074 


















3075 


014126 








?^0P: 








3076 


014125 


0''024Q 








NOP 






3077 


014130 


005067 


165P34 






CLR 


STIMES !;2ER0 THE NUMBER OF ITERATIONS 


3078 


014134 


005267 


165052 






INC 


$PAS5 


INCREMENT THE PAgS NUMBER 


3079 


014140 


042767 


lOOpOO 


I6SO44 




Bie 


100POO,SPA,S 


;OON'T ALLOW A NEG- NUMBER 


3080 


014146 


005327 








PEC 


{PC) + 


: LOOP? 


3081 


014150 


000001 






SEOPCT: 


.WORP 


1 




3082 


014152 


0p3Q40 








BGT 


SDOAGN 


;YES 


3083 


014154 


012737 








MOV 


(PC)+.@(PC)+ 


; RESTORE COUNTER 


3084 


014156 


OOOQpl 






SENDCT: 


.WORD 


1 




3085 


914150 


014150 








SEOPCT 






3086 


0H162 


004567 


PP7324 






U5R 


R5, SPRINT 


GO PRINT OUT THE FOLLOWING MESSAGE. 


3087 


014166 


014260 








.WORP 


SENOMG 


ADORESS OF MESSAGE TO BE TYPED 


3088 


014170 


016746 


165016 






MOV 


$PASS,-^($P) 


;SAVE 5PASS FOR TYPEOUT 


3089 










; * THE 


NEXT TWC3 INSTRUCTIONS PRQVipE AN INTERFACE TO THE $TYPDS ROUTINE 


3090 










;* WIHTOyT USI 


NG A "TRAP" INSTRUCTION AS CALLED FOR BY **$YSMACl-*. 


3091 


014174 


013746 


177776 






MOV 


§#PSW, -(SP) 


PUT THE PROCESSOR STATUS ON THE STACK 


3092 


014200 


004767 


010226 






JSR 


PC, STYPOS ;G0 TO THE SUBROUTINE 


3093 


014204 


0045^7 


0073P2 






JSR 


R5, SPRINT ;G0 PRINT OUT THE FOLLOWING MESSAGE. 


3094 


014210 


014275 








,WQRO 


SENULL JADDRESS OF MESSAGE TO BE TYPEP 


3095 


014212 








$GET42: 








3095 


















3097 


014212 


01 6700 


1^3624 






MOV 


42, RO 


; ;GET MONITOR AppRESS 


3098 


014216 


001416 








BEQ 


SPQAGN 


; BRANCH IF NO MONITOR 


3099 


014220 


000005 








RESET 




;CLEAR THE WORLO 


3100 


014222 


P04710 






SENDAp: 


JSR 


PC, (RO) 


•,G0 TO MONITOR 


3101 


014224 


OC0240 








NOP 




;SAVp ROOM 


3102 


014226 


000240 








NOP 




; FOR 


3103 


014230 


0CO24O 








NOP 




;ApTii 


3104 


014232 


023737 


000042 


000046 




CMP 


##42, §#45 


;ARE WE UNDER ACT1 1 OR XXDP 


3105 


014240 


001405 








BEO 


SPOAGN 


: IF ACT1 1 THEN RTSTART 


3106 


014242 


10 5737 


001224 






TST3 


^(fSENV 


;CHECK FOR APT1 1 


3107 


014246 


0C1002 








BNE 


SPOAGN 


; IF APT1 1 THEN RESTART 


3108 


01425O 


004767 


003074 






JSR 


PC, SAVLDR 


:IF XXDP FIRST SAVE MONITOR 


3109 


014254 








SDOAGN: 








3110, 


014254 


000167 


171624 






JMP 


START1 


; RETURN***** 


31 1 1 


014260 


005015 


047105 


020104 


SENDMG: 


.ASCI2 


<15><12>/ENP PASS #/ 


3112 


014265 


040520 


051523 


02. 440 










3113 


014274 


000 














3114 


014275 


377 


377 


000 


SENUll: 


.BYTE 


-1 ,-1 ,0 


;NULL CHARACTER STRING 


3115 










.SBTTL 


SUBROUTINE AND TRAP ROUTINE SECTION. 


3116 










•SBTTL 


MEMORY 


MANAGEME.JT AND ADDRESSING SUBROUTINES. 


31 17 
















3118 










SET 


UP ALL 


THE MEM MGMT REGISTERS FOR NORMAL OPERATION- 


3119 










THE 


PROGRAM IS POINTED TO BY 


PARS AND 1 . 


3120 










THE 


MEMORY 


UNDER TEST IS POINTEO TO BY PARS 2 ANP 3. 


3121 










;* THE 


DEV.CE 


ADORESS AREA IS PQINTEP TO BY PAR 7. 



f ' % 



C20MCF0 


0-1 24K WEMORV 


EXERCISER, 16K 


VER 


MACY 1 1 
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CZQMCF . 




4 FEB 78 


08.19 




MEMORY 


MANAG£f/,ENT AND ADDRESSING SUBROUTINES. 






3122 










; * PARS 4 , 5 , 


AND 6 ARE UNUSED. 






3123 




















31 2^5 


01 4 300 








MfU T Ki T T • 
nrtlVi A N i 1 • 










31 25 


014300 


01 2737 


0"740S 


1 723*^0 




MOV 


^200-1*400 + UP + RW,#*'KIPDR0 ;SET KIPDRO = 


RW 


UP 


31 26 


1 4306 


1 2737 


077406 






MOV 


#200-1*400 + UP + RW,P«'KIPDR1 ;SET KIPDR1 = 


RW 


UP 


31 27 






U / /MUD 


1 72304 




MOV 


(!/200-1*400+UP + RW,!P//KIPDR2 ; SET KIPDR2 = 


RW 


UP 


3 1 28 




01 ^737 


077406 


1 72306 




MOV 


#200-1 *400 + UP + RW,@»'KIPDR3 ; SET KIPDR3 = 


RW 


UP 


3 1 29 




00 5037 








CLR 


®#KIPDR4 








01 4334 


00 5037 


1 9 






CLR 


©/S'KIPDRS 






3131 


01 4340 


OC 5037 








CLR 


@frKIPDR6 






3 1 32 


U 1 M O M H 


01 2737 




K 




MOV 


*S'200-1 *400+UP + RW,@)^KIPDR7 ;SET KIPDR7 = 


RW 


UP 


31 33 






1 7'^340 






CLR 


@#KIPAR0 ;MAP PARO INTO BANKO 






31 34 


1 4 3 5 S 


01 2737 


A A A n n 


2342 




MOV 


#200, @*KIPAR1 ;MAP PARI INTO BANK1 






3 1 35 


1 4364 


cno3 


1 7 9 o 1 J 






CLR 


@fl'KlPAR2 ;MAP PAR2 INTO BANKO 






31 36 




5037 








CLR 


f/S^KIPARS 






3 1 37 


01 4174 


n r ri ^2 "7 
U w D u o / 








CLR 


P#KIPAR4 






31 38 


014400 




1 "2^52 






CLR 


##KIPAR5 






3 1 39 


0144 04 


00 5037 


1 72354 






CLR 


(P#KIPARS 






31 40 


Q 1 Q 




007600 


723156 




MOV 


*7600, ©flfKIPAR? ;MAP PAR7 INTO I/O BANK 






3141 




01 2737 


00000 1 






MOV 


#1, ©/i'SRO ; ENABLE MEMORY MAN'\GEMENT 






31 42 


1 4424 


00 0207 








RTS 


PC ; RETURN 






3143 




















31 44 




















3145 




















31 46 










;* MEMORY ADDRESS POINTER INITIALIZATION ROUTINES. 






3147 














**!(.>)<*,(l***>(c + *>),*>tl****#*t****#*************>|l**^ 




3148 


1 4426 


01 2767 


00000 1 


1 e"- 10 


INITMM: 


MOV 


#BITO. BITPT ;SET POINTER TO BANKO 






31 49 


014434 


00 5067 


165106 






CLR 


BITPT+2 ;CLEAR HI 64K BANK POINTERS 






31 50 


01 44 40 


005002 








CLR 


R2 ;SET ADDRESS POINTER TO 






3151 


1 4442 




1 e"" 1 40 






MOV 


BLKMSK, R5 ; RESET R5 TO BLOCK MASK, 






31 52 


01 44 




1 641 34 






TST 


MMAVA ; CHECK FOR MEM MGMT AVAILABLE 






31 53 


01 44 52 


00 1514 








BEO 


10$ ; BRANCH IF NO MEM MGMT 






31 54 


01 44 54 


0050~7 


1 72344 






CLR 


@*KIPAR2 ;SET UP 3R0 PAR TO BANKO 






31 55 


01 44 60 


1 27 02 


040000 






MOV 


#40000. R2 ;R£SET VIRTUAL ADR POINTER 






31 56 


1 4464 


ooto^s 


1 65054 


1 55036 


is: 


BIT 


BITPT, TSTMAP ;CHECK IF THIS BANK TO BE TESTED 




31 57 












BNE 


2$ ; BRANCH IF MATCH 






3 1 58 


014474 


036767 


1 65046 


1 650 30 




BIT 


3ITPT + 2, VSTMAP+2 .-CHECK IN HI MAP 






31 59 


014502 


00101 1 








BK"! 


2$ ; BRANCH IF MATCH 






3160 


01 4504 


062737 


000200 


172344 




ADD 


#200, ©#K1PAR2 ;UPDATE MEM MGMT. THIRD PAR. 






3161 


01451 2 


006367 


165025 






ASL 


BITPT ;UPDATE LO POINTER TO NEXT BANK. 




3162 


014516 


0061 67 


165024 






ROL 


BITPT+2 ; . . .HI POINTER. 






3163 


014522 


100360 








BPL 


1$ ;BR IF MORE. 






3164 


014524 


000000 








HALT 


;FATAL ERROR!!! NO 4K BANK FOUND? 






3165 


014526 


0367 -7 


165012 


165046 


2S: 


BIT 


BITPT, LADMAP ;CH£CK IF LAST BANK. 






3166 


01 4534 


00 1 004 








BNE 


3$ ;BR IF LAST BANK. 






3167 


01 4536 


036767 


165004 


165040 




BIT 


BITPT+2 , LADMAP+2 ;CHECK IF LAST BANK. 






316B 


014544 


001405 








BEQ 


4$ ;BR IF NOT LAST BANK. 






3169 


014546 


01 6705 


1 65026 




35: 


M' / 


LAOMSK, R5 jSET MASK TO FIND LAST ADR. 






3170 


014552 


042767 


020000 


165016 




BIC 


#20000, TMPLAD ;MAKE SURE VIRTUAL LAST ADR IN 


BANK 


3171 


01 4560 


01 3737 


1 72344 


1 72346 


4S: 


MOV 


@#KIPAR2,@#KIPAR3 ;COPY CURRENT PAR INTO FORTH 


PAR. 


3172 


014566 


0' 6767 


1 64752 


164754 




MOV 


BITPT, TMPPT ;COPY BITPT... LO 64K. 






31 73 


014574 


01 6767 


164746 


164750 




MOV 


BITPT+2, TMPPT+2 ;...HI 64K. 






3174 


014502 


032705 


020000 






BIT 


#BIT13, R5 ;CHECK FOR A BLOCK SIZE OF 8K. 






3175 


014606 


001505 








BEQ 


21$ ;BRANCH IF NOT BK. 






3176 


01 461 


062737 


000200 


172346 


5S: 


ADD 


#200, @#-IPAR3 ;UP DATE FORTH PAR. 






3177 


014616 


006367 


164726 






ASL 


TMPPT lUPDATE LO POINTER TO NEXT 4K 


BANK. 
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MEMORY 


MANAGcMENT AND ADDRESSING 


SUBROUTINES. 


3178 


014622 


0061 67 


164724 






ROL 


TMPPT+2 




; . . .HI POINTER. 


3179 


014626 


1 00473 








BMI 


20$ 




;BR IF NO MORE. 


3180 


01 4630 


036767 


164714 


164672 




BIT 


TMPPT , 


TSTMAP 


;CHECK IF BANK TO BE TESTED. 


3181 


014535 


0C1004 








BNE 


6$ 




; BRANCH IF A MATCH. 


3182 


01 4640 


036767 


164706 


164564 




BIT 


TMPPT+2 


,TSTMAP+2 


;CHECK FOR HI 64K BANKS. 


3183 


01 4646 


00 1 760 








BEO 


5$ 




; BRANCH IF NO MEMORY 


3184 


014650 


036767 


164674 


164724 


6$: 


BIT 


TMPPT , 


LADMAP 


;CHECK IF LAST BANK. 


3185 


014556 


00 1 004 








BNE 


7$ 




; BRANCH IF A MATCH 


3186 


014660 


036767 


164666 


164716 




BIT 


TMPPT+2 


. LADMAP+2 


;CHECK HI 64K 


3187 


01 4666 


001455 








BEQ 


21$ 




;BR IF NOT LAST BANK. 


3188 


014670 


01 6705 


1 64704 




7$: 


MOV 


LADMSK , 


P5 


•.RESET MASK TO FIND LAST ADR. 


3189 


01 4674 


052767 


020000 


164674 




BIF 


#20000 , 


TMPLAD 


;MAKE SURF LAST ADDRESS IS IN BANK 3. 


3190 


014702 


000447 








BR 


21$ 




;BR TO FINISH UP. 


3191 
3192 


014704 


036767 


164634 


164616 


10$: 


BIT 


BITPT , 


TSTMAP 


;CHECK IF THIS BANK TO BE TESTED. 


3193 


014712 


00 1 006 








BNE 


11$ 




;BR IF MATCH. 


3194 


014 714 


062702 


020000 






ADD 


#20000, 


R2 


; UPDATE PHYSICAL ADR PNTR TO NEXT BANK. 


3195 


014720 


1C6367 


164620 






AS'.B 


BITPT 




;UPDATE BANK POINTER TO NEXT BANK. 


3196 


01 4724 


100367 








BPL 


10$ 




;BR IF MORE BANKS. 


3197 


01 4726 


000000 








HALT 




.•FATAL ERROR!!! NO 4K BANK FOUND? 


3198 


01 4730 


01 6767 


164610 


164612 


11$: 


MOV 


BITPT , 


TMPPT 


;COPY BANK POINTER. 


3199 


014736 


036767 


1 64602 


164636 




BIT 


BITPT, 


LADMAP 


; CHECK IF LAST BANK. 


3200 


01 4744 


001021 








BNE 


12$ 




;BR IF LAST BANK. 


3201 


01 4746 


0327.'5 


020000 






BIT 


#BIT13, 


R5 


;CHECK FOR 8K BLOCK SIZE. 


3202 


014752 


001423 








BEO 


21$ 




; BRANCH IF SMALLER BLOCK SIZE. 


3203 


014754 


106367 


164570 






ASLB 


TMPPT 




;POINT TO NEXT BANK. 


3204 


014760 


100416 








BMI 


20$ 




; BRANCH IF OVERFLOW. 


3205 


014762 


036767 


164562 


164540 




B. ; 


TMPPT , 


TSTMAP 


;CHECK IF BANK TO BE TESTED. 


3206 


014770 


00 141 2 








BEO 


20$ 




; BRANCH IF NOT TO BE TESTED. 


3207 


01 4772 


1 1 2767 


00001 1 


164557 




MOVB 


#11, 


FLAG8K 


;SET 8K BLOCK SIZE FLAG. 


3208 


015000 


0-6767 


164544 


164574 




BIT 


TMPPT , 


LADMAP 


;CHECK FOR LAST BANK. 


3209 


01 5006 


001403 








BEQ 


20$ 




;BR IF NOT LAST BANK. 


321 


015010 


01 6705 


1 64564 




12$: 


MOV 


LADMSK, 


R5 


; RESET MASK TO FIND LAST ADR. 


321 1 


015014 


000402 








BR 


21$ 




;SKIP MASK RESET. 


321 2 


015016 


01 2705 


01 7777 




20$: 


MOV 


#MASK4K,R5 


;RESET MASK TO 4K BLOCK SIZE. 


3213 


01 5022 


056767 


164516 


164520 


21$: 


BIS 


BITPT , 


TMPPT 


;SET TMPPT FOR FLAGING LAST BANK. 


3214 


015030 


056767 


164512 


164514 




BIS 


BITPT+2 , TMPPT+2 




3215 


015036 


036767 


164502 


164524 




BIT 


BITPT , 


FADMAP 


;CHECK IF FIRST ADDRESS NEEDS TO BE SET 


3216 


015044 


001004 








BNE 


22$ 




; BR IF FIRST BANK. 


3217 


01 5046 


036767 


1 64474 


164516 




BIT 


BITPT+2, FADMAP+2 


;CHECK HI 64K. 


3218 


01 5054 


00 1450 








BEQ 


INITEX 




;BR IF NOT FIRST BANK. 


3219 


01 5056 


01 6702 


164502 




22$: 


MOV 


TMPFAD, 


R2 


;RESET ADDRESS POINTER TO FIRST ADR. 


3220 


015062 


000445 








BR 


INITEX 






3221 




















J222 


01 5064 


01 6705 


1 64516 




INITDN: 


MOV 


BLKMSK, 


R5 


•.RESET R5 TO CURRENT BLOCK MASK. 


3223 


01 5070 


005002 








CLR 


R2 




; INIT ADDRESS POINTER. 


3224 


01 5072 


0C5767 


1 63510 






TST 


MMAVA 




•.CHECK FOR MEM MGMT 


3225 


01 5076 


CO 14 11 








BEO 


31 $ 




; BRANCH IF NO MEM MGMT 


3226 


015100 


0-. 2767 


1 00000 


164440 




MOV 


#SIT15, 


BITPT+2 


;SET POINTER TO TOP BIT 


3227 


01 51 06 


0l:5067 


164432 






CLR 


BITPT 






3228 


015112 


01 27Z7 


007600 


1 72344 




MOV 


#7600, 


(a#KIPAR2 


;SET PAR TO TOP OF MEM 


3229 


0151 20 


00 04 C 3 








BR 


32$ 




; BRANCH TO COMMON AREA 


3230 




















3231 


01512 2 


01 2767 


0004.0 


1644 14 


31$: 


MOV 


^BIT8, 


BITPT 


;SET UP BANK POINTER 


3232 


01 51 30 


01 2767 


01 51 52 


1644 16 


32$: 


MOV 


#33S, 


MMORE 


;SET "MMDOWN" EXIT ADDRESS. 


3233 


015136 


C66767 


1 63436 


1644 10 




ADD 


RELOCF, 


MMORE 


;ADD OFFSET 
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3234 


015144 


004767 


000524 








USR 


PC, 


MMDOWN 


; ROUTINE TO SEARCH DOWNWARD FOR TOP MEM BANK 


3235 


015150 


ocoooo 










HALT 




; FATAL ERROR!!! NO MEM INDICATED IN MEM MAP ABOVE 8K ! 


3236 


015152 


036767 


164366 


164422 


33$: 


BIT 


BITPT , 


LADMAP 


; CHECK FOR NON BOUNDRY LAST ADDR. 


3237 


015160 


OOlor 1 










BNE 


34$ 




;BR IF LAST BANK FLAG FOUND. 


3238 


015162 


036767 


164360 


164414 






BIT 


BITPT+2, LADMAP+2. ;CHECK FOR NON BOUNDRY LAST ADDR. 


3239 


0151 70 


001402 










BEO 


INITEX 




; BR IF NO LAD FLG FOUND. 


3240 


0151 72 


01 6702 


164376 




3^$: 


MOV 


LSTADR, 


R2 


•.SET UP R2. 


3241 


0151 76 


01 0467 


164352 




INI TEX : Mr ' 


R4. 


MMORE 


;PUT RETURN PC INTO "MMORE" 


3242 


015202 


000204 










RTS 


R4 




: RETURN 


3243 






















3244 






















3245 














COMMON UPInARDS ADDRESSING ROUTINE 


3246 














FINDS NEXT 


EXISTING 


4K BANK 


AND. UPDATES POINTERS. 


3247 














GOES TO ADDRESS IN 


'MV.C,:c" IF MORE BANKS, 


3248 














DOES STRAIGHT EXIT 


WHE*. ALL 


MEMORY HAS BEEN DONE. 


3249 






















3250 


015204 


036767 


164340 


164370 


MMUP 


: BIT 


TMPPT , 


LADMAP 


; CHECK FOR LAST BANK FLAG. 


3251 


015212 


0C1 122 










BNE 


10$ 




; BR IF LAST ,8ANK. 


3252 


015214 


036767 


164332 


16436? 






BIT 


TMPPT+2, LADMAP+2 


;CHECK FOR LAST BANK FLAG. 


3253 


015222 


001 1 16 










BNE 


10$ 




; BR IF LAST BANK. 


3254 


015224 


01 6705 


164356 








MOV 


BLKMSK, 


R5 


; RESET R5 TO BLOCK MASK. 


3255 


015230 


0C5767 


I63r52 








TST 


MMAVA 




; CHECK FOR MEM MGMT AVAILABLE 


3256 


01 5234 


001515 










BEO 


20$ 




; BRANCH I F KQ MEM MGMT 


3257 


015236 


01 2702 


040000 








MOV 


(^'40000, 


R2 


;RESET VIRTUAL ADR POINTER 


3258 


015242 


062737 


000200 


172344 


1$: 


APD 


tt200. 


§>)fKIPAR2 


; UPDATE MEM MGMT. THIRD PAR. 


3259 


015250 


0C6367 


164270 








ASL 


BITPT 




;UPDATE LO POINTER TO NEXT BANK. 


3260 


015254 


0C6167 


164266 








ROL 


BITPT+2 




: . . .HI POINTER. 


3251 


015260 


1C0577 










BMI 


32$ 




;BR IF ALL DONE. 


3262 


015262 


036767 


164256 


164240 






BIT 


BITPT , 


TSTMAP 


;CH£CK IF THIS BANK EXISTS 


3263 


015270 


001004 










BNE 


2$ 




; BRANCH IF MATCH 


3264 


015272 


036767 


164250 


164232 






BIT 


BITPT+2 


, TSTMAP+2 


;CHECK IN HI MAP 


3265 


015300 


001760 










BEO 


1$ 




; BRANCH IF NO MATCH 


3266 


015302 


036767 


164236 


164272 


25: 


BIT 


BITPT . 


LADMAP 


;CHECK FOR LAST BANK FLAG. 


3267 


015310 


001004 










BNE 


3$ 




; BRANCH IF LAST BANK FLAG. 


3268 


015312 


035767 


164230 


164264 






BIT 


BITPT+2 


, LADMAP+2 


; CHECK IF LAST BANK FLAG. 


3259 


015320 


001405 










BEO 


4$ 




;BR IF NOT LAST BANK. 


3270 


01 5322 


01 6705 


1 64252 




3S: 


MOV 


LAOMSK , 


R5 


; RESET MASK. 


3271 


015326 


04 2767 


020000 


164242 






BIC 


#20000, 


TMPLAD 


[MAKE SURE VIRTUAL LAST ADR IN BANK 2 


3272 


015334 


01 6767 


164204 


164206 


4S: 


MOV 


BITPT , 


TMPPT 


;COPY BITPT. . . LO 64K. 


3273 


015342 


01 6757 


164200 


164202 






MOV 


BITPT+2 ,TMPFT+2 


; ...HI 64K. 


3274 


015350 


032705 


020000 








BIT 


#BIT13, 


R5 


-.CHECK FOR A BLOCK SIZE OF 8K. 


3275 


015354 


001530 










BEO 


31$ 




; BRANCH IF NOT. 


3276 


015356 


01 3737 


172344 


172346 






MOV 


P#KIPAR2,@/^KIPAR3 ; COPY CURPENT PAR INTO FORTH PAR. 


3277 


015364 


062737 


000200 


172346 


55: 


ADD 


#200, 


g!fKIPAR3 


;UP DATE FORTH PAR. 


3278 


015372 


005367 


164152 








ASL 


TMPPT 




jUPDATE LO POINTER TO NEXT 4K BANK. 


3279 


015376 


006167 


164150 








ROL 


TMPPT+2 




;...HI POINTER. 


3280 


015402 


1 COS 13 










BMI 


30$ 




;BR IF NO MORE. 


3281 


015404 


036767 


164140 


1641 16 


as: 


BIT 


TMPPT, 


TSTMAP 


;CHECK IF BANK TO BE TESTED. 


3282 


015412 


001004 










BNE 


7$ 




; BRANCH IF A MATCH. 


3283 


015414 


036767 


164132 


1641 10 






BIT 


TMPPT+2 


, TSTMAP+2 


;CHECK FOR HI 64K BANKS. 


3284 


015422 


001760 










BEO 


55 




; BRANCH IF NO MEMORY 


3285 


015424 


036767 


164120 


164150 


7S: 


BIT 


TMPPT, LADMAP 


;CHECI' FOR LAST BANK FLAG. 


3286 


015432 


001004 










BNt 


8$ 




; BRANCH IF A MATCH 


3287 


015434 


036767 


164 11 2 


164142 






BIT 


TMPPT+2, LADMAP+2 


■.CHECK HI 64K 


3288 


015442 


001475 










BEO 


31$ 




;BR IF NO LAST BANK FLAG. 


3289 


015444 


016705 


164130 




85: 


MOV 


LADMSK, 


R5 


; RESET MASK TO FIND LAST ADDRESS, 
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MEMORY 


MANAGEMENT AND A 


DDRESSING 


SUBROUTINES. 


3290 


015450 


052767 


020000 


164120 








BIS 


#20000, 


TMPLAD 


SET VIRTUAL ADR TO BANK 3. 


3291 


015455 


000467 












BR 


31$ 






3292 
























3293 


015460 


026702 


164 11 2 




10$: 




CMP 


TMPLAD, 


R2 


CHECK IF LAST ADR REACHED. 


3294 


015454 


001064 












BNE 


31$ 




BR IF MORE. 


3295 


015466 


000474 












BR 


32$ 




BR IF ALL DONE. 


3296 
























3297 


01 5470 


106267 


164063 




20$: 




ASRB 


FLAG8K 




SHIFT 8K FLAG 


3298 


01 5474 


001407 












BEO 


22$ 




BR IF NOT 8K BLOCK. 


3299 


015476 


103455 












BCS 


30$ 




BR IF ANOTHER 4K . 


3300 


015500 


105067 


164053 










CLRB 


FLAG8K 




CLEAR OUT ALL FLAGS. 


3301 


015504 


162702 


Q40000 










SUB 


#40000, 


R2 


BACK U? 8K. 


3302 


015510 


052702 


020000 




21$: 




ADD 


#20000, 


R2 


UPDATE PHYSICAL ADR PNTR TO NEXT BANK. 


3303 


015514 


tC6367 


1640^4 




22$: 




ASLB 


BITPT 


iUPDATE POINTER. 


3304 


01 5520 


1C0457 












BMI 


32$ 




BRANCH WHEN END IS REACHED. 


3305 


01 5522 


036767 


164018 


164000 








BIT 


BITPT, 


TSTMAP 


CHECK IF THIS BANK EXISTS. 


3306 


015530 


001767 












BEO 


21$ 




BRANCH IF NO MATCH. 


3307 


015532 


036767 


164006 


164042 








BIT 


BITPT , 


LADMAP 


CHECK FOR LAST BANK FLAG. 


3308 


015540 


001402 












BEO 


23$ 




BR IF NO MATCH. 


3309 


015542 


016705 


164032 










MOV 


LADMSK, 


R5 


RESET MASK TO FTO LAST ADR. 


3310 


015546 


01 6767 


163772 


163774 


23$: 




MOV 


BITPT, 


TMPPT 


SET UP TMP POINTER. 


331 1 


015554 


032705 


020000 










BIT 


#BIT13, 


R5 


CHECK FOR 8K BLOCK SIZE. 


3312 


015560 


0D1426 












BEO 


31$ 




BRANCH IF SMALLER BLOCK SIZE. 


3313 


015562 


1C6367 


163762 










ASLB 


TMPPT 




POINT TO NEXT BANK. 


3314 


015566 


100421 












BMI 


30$ 




BRANCH IF OVERFLOW. 


3315 


015570 


036767 


163754 


163732 








BIT 


TMPPT , 


TSTMAP 


CHECK IF BANK TO BE TESTED. 


3316 


015576 


001415 












BEO 


30$ 




BRANCH IF NOT TO BE TESTED. 


331 7 


01 5500 


036767 


163740 


163774 








BIT 


BITPT, 


LADMAP 


CHECK FOR LAST BANK FLAG. 


3318 


015606 


1 1 2767 


00001 1 


163743 








MOVB 


#11, 


FLAGBK 


SET 8K BLOCK FLAG. 


3319 


015614 


036767 


163724 


163760 








BIT 


BITPT , 


LADMAP 


CHECK FOR LAST BANK FLAG. 


3320 


015522 


001403 












BEO 


30$ 




BR IF NO FLAG. 


3321 


015624 


01 6705 


163750 










MOV 


LADMSK, 


R5 


RESET MASK TOFIND LAST ADR. 


3322 


015630 


OC0402 












BR 


31$ 






3323 


01 5532 


01 2705 


01 7777 




30$: 




MOV 


#MASK4K,R5 ; SET MASK TO 4K. 


3324 


015536 


055767 


163702 


163704 


31$: 




BIS 


BITPT , 


TMPPT 


SET TMPPT FOR FINDING LAST ADR. 


3325 


015644 


056767 


163676 


163700 








BIS 


BITPT+2. TMPPT+2 




3326 


015652 


01 6716 


163676 










MOV 


mORE , 


(SP) 


FUDGE RETURN ADDRESS TO LOOP. 


3327 


01 5655 


0C02C7 












RTS 


PC 


; RETURN 


3323 














BEFORE FINAL EXIT, 


CHECK FOR 


ANY NCN-TRAP PARITY ERRORS. 


3329 


015660 


005767 


154412 




32$: 




TST 


MPRX 




CHECK FOR ANY PARITY REGISTERS PRESENT. 


3330 


01 5654 


001402 












BEO 


33$ 




B^ IF NONE. 


3331 


015666 


004767 


001744 










JSR 


PC, 


CKPMER 


CHECK FOR PARITY MEMORY ERRORS. 


3332 


015572 


000207 






33$: 




RTS 


PC 




STRAIGHT RETURN. 


3333 
























3334 






















3335 














MEMORY DOVJNWARDS ADDRESSING SUBROUTINE. 


3336 














FINDS NEXT 


LOWER 4K 


BANK AND 


UPDATES POINTERS. 


3337 














GOES . J ADDRESS IN 


"MMORE" IF MORE BANKS. 


3338 














DOE 


S STRAIGHT EXIT 


WHEN ALL P 


/lEMORY HAS BEEN DONE. 


3339 






















3340 


015674 


C"6767 


163644 


163666 


MMDO.;,Ni: 


BIT 


BITPT, 


FADMAP -.CHECK FOR FIRST ADR FLAG. 


3341 


015702 


001 004 












BNE 


1$ 


;BR IF FIRST ADR IN THIS BANK. 


3342 


015704 


036767 


163636 


163660 








BIT 


BITPT+2 . FADMAP+2 


;CHECK FOR FIRST ADR FLAG. 


3343 


015712 


001404 












BEO 


2$ 




BR IF NO FLAG 


3344 


015714 


026702 


163644 




IS: 




CMP 


TMPFAD. 


R2 


CHECK IF FIRST ADDRESS REACHED. 



f ^ 
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3346 


015722 


000453 








BR 


10S 




BR IF ALL DONE. 


3347 


01 5724 


005767 


162656 




2$: 


TST 


MMAVA 




CHECK IF MEM MGMT IS AVAILABLE 


3348 


015730 


001425 








BEQ 


6$ 




BRANCH IF NOT 


3349 


015732 


162737 


000200 


172344 


3$: 


SUB 


#200, @*KIPAR2 


LOWER MEM t^'CMT PAR BY 4K 


3350 


01 5740 


006067 


163602 






ROR 


BITPT+2 




MOV POINTER TO NEXT LOWER BANK... HI MAP. 


3351 


015744 


0D6O67 


163574 






ROR 


BITPT 




. . . LO MAP. 


3352 


01 5750 


103440 








BCS 


10S 




BR IF NO MORE. 


3333 


015752 


036767 


163565 


163550 




BIT 


BITPT, 


TSTMAP 


CHECK FOR BANK EXISTING 


33S4 


015760 


001004 








BNE 


4S 




BR IF BANK TO BE TESTED. 


3355 


015762 


036767 


163560 


1S3542 




BIT 


BlTPT+2 


TSTMAP+2 


; CHECK FOR BANK IN HI MAP. 


3356 


015770 


001760 








BEO 


3$ 




BR IF NOT THERE. 


3357 


015772 


01 2702 


060000 




4$: 


MOV 


#60000 , 


R2 


SET ADR POINTER TO TOP OF BANK 


3358 


015776 


00041 1 








BR 






GO TO COMMON EXIT 


3359 


016000 


162702 


020000 




5$: 


SUB 


#20000, 


R2 


BACK POINTER DOWN ONE BANK 


3360 


016004 


0C6267 


163534 




6$: 


ASR 


BITPT 




MOVE POINTER TO NEXT LOWER BANK 


3361 


016010 


1C3420 








BCS 


10S 




BRANCH TO EXIT IF NO MORE MEM 


3362 


016012 


036767 


163526 


163S10 




BIT 


BITPT, 


TSTMAP 


CHECK IF BANK EXISTS 


3363 


016020 


001767 








BE'5 


5S 




BRANCH IF BANK DOESN'T EXIST 


J364 


016022 


026767 


163516 


163540 


7S: 


BIT 


BITPT, 


FADMAP 


CHECK IF FIRST BANK FLAG. 


3365 


016030 


00 1004 








BNE 


8$ 




ER IF FIRST BANK. 


3366 


016032 


036767 


163510 


163532 




BIT 


BITPT+2 


FADMAP+2 


;CHECK IF FIRST BANK FLAG. 


3367 


015040 


001402 








BEO 


9$ 




ER IF NO FLAG FOUND. 


3368 


016042 


01 6705 


163520 




8S: 


MOV 


FADMSK, 


R5 


SET UP R5 TO FIND FIRST ADDRESS. 


3369 


016046 


01 67 ,o 


163502 




9S: 


MOV 


MMQRE, 


(SP) 


RESET RETURN ADDRESS 


3370 


016052 


000207 






10$: 


RTS 


PC 




RETURN 
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0a:i9 SUBROUTINES FCR ADDRESS AND WORSE CASE NOISE TESTS. 


3371 








.SBTTL 


SUBROUTINES FOR ADDRESS 


AND WORSE CASE NOISE TESTS. 


3372 
















3373 








* SUBROUTINE 


TO CALCULATE PHYSICAL ADDRESS AND PUT IT IN RO (BOTTOM 16 


3374 








♦ BITS 16 AND 17 ARE IN STMPO. 




3375 
















3376 


016054 


01 0200 


phyadr: 


MOV 


R2, RO 


;VITRUAL INTO RO 


3377 


016056 


0C5067 


163076 




CLR 


STMPO 


;CLEAR TEMP SAVE OF HIGH BITS 


3378 


016062 


005767 


162520 




Tf- 


MMAVA 


; CHECK FOR MEM MGMT AVAILABLE 


3379 


01 6066 


001417 






BEO 


1$ 


; BRANCH IF NO MEM MGMT 


3380 


01 6070 


01 0146 






MOV 


R1 ,-(SP) 


; ;PUSH R1 ON STACK 


3381 


016072 


0' 3701 


172344 




MOV 


@*KIPAR2. R1 


;GET PAR TO BE ADDED TO VIRTUAL 


3382 


016075 


0C6301 






ASL 


R1 


;SH1FT IT 6 TIMES 


3383 


0161 00 


OG6301 






ASL 


R1 




3384 


01 61 02 


0C6301 






ASL 


R1 




3385 


016104 


006301 






ASL 


R1 




3386 


0161 06 


0C6301 






ASL 


R1 




3387 


016110 


CC6167 


163044 




ROL 


STMPO 


;SAVE EXTRA BITS 


3388 


016114 


0C6301 






ASL 


R1 




3389 


016116 


006167 


163036 




ROL 


STMPO 




3390 


01 61 22 


0601 00 






ADD 


R1 , RO 


;ADD SHIFTED PAR TO VIRTUAL 


3391 


0161 24 


01 2601 






MOV 


{SP)+,R1 


; ; POP STACK INTO R1 


3392 


016126 


000207 


1$: 


RTS 


PC 


•RETURN 


3393 
















3394 
















3395 








* SUBROUTINE 


TO PUT BANK NUMBER INTO RO. 


3398 
















3397 


01 61 30 


005000 


BANKNO: 


CLR 


RO 


INIT RO 


3398 


016132 


01 0146 






MOV 


R1 ,-(SP) 


;PUSH R1 ON STACK 


3399 


016134 


01 0246 






MOV 


R2,-(SP) 


;PUSH R2 ON STACK 


3400 


01 61 35 


01 6701 


163402 




MOV 


BITPT, R1 


GET BANK MAP POINTER... LO 64K. 


3401 


016142 


01 6702 


163400 




MOV 


B1TPT+2,R2 


. . .HI 64K. 


3402 


01 61 46 


0C6202 


IS: 


ASR 


R2 


SHIFT POINTER. . .HI 


3403 


016150 


0060C1 






ROR 


R1 


. . . LO 


3404 


016152 


103403 






BCS 


2S 


BR WHEN POINTER FOUND. 


3405 


016154 


1052C0 






INCB 


RO 


COUNT BANKS. 


3406 


0161 56 


100373 






BPL 


1$ 


BR IF NOT OVERFLOW. 


3407 


016160 


000000 






HALT 


; FATAL ERROR!!! NO POINTER FOUND. 


3408 


016162 




2$: 








3409 


016162 


01 2602 






MOV 


(SP)+,R2 


;PQP STACK INTO R2 


34 1 


0161 64 


01 2601 






MOV 


(SP)+,R1 


;POP STACK INTO -"I 


341 1 


01 61 65 


000207 






RTS 


PC 


RETURN 


34 12 
3413 














3414 








* SUBROUTINE 


TO WRITE THE CONSTANT IN RO INTO ALL OF MEMORY. 


3415 














3416' 


0161 70 




SETCON: 








341 7 


01 6170 


004467 


176232 




JSR 


R4, INITMM 


INITIALIZE THE MEMORY ADDRESS POINTERS. 


3418 


! 61 74 


01 0022 


2S: 


MOV 


RO, (R2)+ 


MOV CONSTANT INTO MEMORY 


3419 


0l6l 76 


030502 






BIT 


R5, R2 


CHECK FOR END OF A BLOCK. 


3420 


016200 


001375 






BNE 


2$ 


BRANCH IF MORE IN CURRENT BLOCK. 


3421 


016202 


00 4 767 


176776 




JSR 


PC, MMUP 


FIND NEXT BLOCK AND LOOP TO 1$. 


3422 


016206 


000207 






RTS 


PC 


RETURN 
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3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 



ROUTINE TO ROTATE 



BIT THROUGH A MEMOPY LOCATION. 



1 621 
016212 
01 62 1 4 
1 62 1 6 
1 6220 
016222 
016224 
0162 25 
016230 
016232 
01 62 34 
01G235 
016240 
01 6242 
01 6244 
01 6246 
01 6250 
1 6252 
016254 



10 6112 
1 C 6 11 2 
1C61 12 
1C61 12 
106112 
1 061 1 2 
1C61 12 
1061 12 
1C6122 
1 C 6 1 1 2 
10 6112 
1061 12 
106112 
1061 12 
10 6112 
106112 
106112 
1 061 22 
000207 



ROTATE: ROLB 


(R2) 


(R2)=1 77776 


OR 


000001 


ROLB 


{R2) 


1R2)=177775 


OR 


000002 


ROLB 


(R2) 


(R2)=177773 


OR 


000004 


ROLB 


(R2) 


( R2 )=1 77767 


OR 


0C0010 


ROLB 


(R2)' 


(R2)=177757 


OR 


000020 


ROLB 


(R2) 


(R2)=177737 


OR 


000040 


ROLB 


(R2) 


{R2)=177677 


OR 


000100 


ROLB 


(R2) 


(R2)=177777 


OR 


000000 


ROLB 


(R2) + 


(R2)=177577 


OR 


000200 


ROLB 


{R2) 


( R2)=1 77377 


OR 


000400 


ROLB 


(R2) 


{R2)=176777 


OR 


001000 


ROLB 


(R2) 


(R2)=1 75777 


OR 


002000 


ROLB 


(R2) 


( R2)=1 73777 


OR 


004000 


ROLB 


(R2) 


(R2)=167777 


OR 


010000 


ROLB 


(R2) 


(R2)=157777 


OR 


020000 


ROLL 


(R2) 


{R2)=137777 


OR 


040000 


ROLB 


(R2) 


(R2)=077777 


OR 


ICOOOO 


ROLB 


{R2) + 


(R2)=1 77777 


OR 


000000 


RTS 


PC 


RETURN 







3448 














3449 


016256 


012704 000020 


W3X9: 


MOV 


#16 


. ,R4 


3450 














3451 


016262 


01 0022 


2S: 


MOV 


RO , 


(R2) + 


3452 


01 6264 


01 0022 




MOV 


RO, 


(R2) + 


3453 


01 6266 


01 0022 




MOV 


RO, 


(R2) + 


3454 


016270 


01 0022 




MOV 


RO, 


(R2) + 


3455 














3456 


01 6272 


01 0322 




MOV 


R3, 


(R2) + 


3457 


01 6274 


01 0322 




MOV 


R3, 


{R2) + 


3458 


016276 


01 0322 




MOV 


R3, 


{R2) + 


3459 


016300 


01 0322 




MOV 


R3, 


(R2) + 


3460 














3461 


016302 


01 0022 




MOV 


RO, 


(R2) + 


3462 


016304 


01 0C22 




MOV 


RO, 


(R2) + 


3453 


01 6306 


01 0022 




MOV 


RO, 


(R2) + 


3464 


016310 


01 0022 




MOV 


RO, 


(R2) + 


3465 














3466 


016312 


01 03' 2 




MOV 


R3, 


{R2) + 


3457 


016314 


01 0322 




MOV 


R3 , 


(R2) + 


3468 


01 631 6 


01 0322 




MOV 


R3, 


(R2) + 


3459 


016320 


01 0322 




MOV 


H3, 


(R2) + 


3470 














3471 


016322 


005304 




DEC 


R4 




3472 


016324 


00 1 356 




BNE 


2S 




3473 


016326 


0- 0046 




MOV 


RO, 




3474 


016330 


0-, 0300 




MDV 


R3, 




3475 


01 6332 


01 2503 




MOV 


{SP)+, 


3476 


016334 


000207 




RTS 


PC 





SUBROUTINE TO WRITE 3 XOR 9 PATTERN INTO 256. WORD BLOCK. 

;EACH LOOP WRITES 256. WORDS 



;SAVE RO 

;PUT R3 INTO RO 

;PUT SAVED RO INTO R3 

; RETURN 



CZOMCFO 


0-1 24K MEMORY 


EXERCI 


C20MCF . 


P11 14-FEB-78 


08: 19 


3477 








3478 








3479 








3480 








3481 


C16335 






3482 


016336 


01 0246 




3483 


016340 


01 0346 




3484 


016342 


01 0446 




3485 


01 6344 


01 2502 




3486 


016346 


01 2503 




3437 


016350 


01 2704 


020000 


3488 


016354 


01 2223 




3489 


016356 


0C53C4 




3490 


016360 


0C1375 




3491 


016352 


01 2704 


020000 


3492 


01 6366 


024243 




3493 


01 6370 


00 141 7 




3494 


01 6372 


01 1267 


162526 


3495 


01 6376 


01 1367 


162524 


3496 


01 6402 


01 0267 


162512 


3497 


01 6406 


01 0367 


162510 


3498 


016412 


0C4767 


003222 


3499 


016416 


000023 




3500 


01 5420 


OOOOcO 




3501 


016422 


162705 


000004 


3502 


01 6426 


C00746 




3503 


016430 


005304 




3504 


0164 32 


001355 




3505 


1 5434 


004567 


005052 


3506 


016440 


026542 




3507 








3508 


016442 


01 0346 




3509 


01644d 


004767 


006502 


3510 


016450 


01 2604 




351 1 


01 6452 


01 26C3 




3512 


01 6454 


01 2602 




3513 


016456 


000205 




3514 








3515 








3516 








351 7 


016460 


022767 


000003 


3518 


01 64 66 


001401 




3519 


01 54 70 


000000 




3520 


0164 72 






3521 


016472 


01 0046 




3522 


1 64 74 


01 0146 




3523 


016476 


005767 


162104 


3524 


016502 


00 1465 




3525 


01 6504 


0' 2737 


007600 


3526 


01 65 1 2 


0C50C0 




3527 


1 65 1 4 


01 2701 


1 00000 


3528 


01652 


162737 


000200 


3529 


01 6526 


0060C1 




3530 


01 65 30 


006000 




3531 


01 6532 


1 035C0 




3532 


01 6534 


0301 67 


162766 
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.SBTTL RELOCATION SUBROUTINES. 

;* ROUTINE TO RELOCATE PROGRAM CODE 



MOV 


R2,-(SP' 




; PUSH R2 ON STACK 


MOV 


R3,-(SP) 




; PUSH R3 ON STACK 


MOV 


R4,-(SP) 




;PUSH R4 ON STACK 


MOV 


(R5)+. 


R2 


GET FIRST LOCATION. 


MOV 


(R5)+, 


R3 


GET FIRST LOCATION OF DESTINATION, 


MOV 


#20000, 


P4 


SET UP 3K COUNTER. 


MO^.' 


{R2)+, 


(R3) + 


MOV iHE DATA. 


DEC 


R4 




COUNT THE WORDS. 


BNE 


IS 




BR IF MORE. 


MOV 


fi'20000 , 


R4 


RESET THE COUNTER. 


CMP 


-(R2) , 


-(R3) 


CHECK THE DATA JUST MOVED. 


BEO 


3$ 




BR IF DATA OK. 


MC ; 


(R2) , 


SGDDAT 


GET SOURCE DATA. 


MOV 


(R3). 


SBDDAT 


GET DESTINATION DATA. 


MOV 


R2, 


SGDADR 


GET SOURCE ADDRESS. 


MOV 


R3, 


$3DADR 


GET DESTINATION ADDRESS. 


JSR 


PC, 


SERROR 


+** ERROR *** (GO TYPE A MESSAGE) 


.WORD 


23 




ERROR TYPE CODE. 


HALT 




;FATAL ERROR!!". RELOCATION FAILED. 


SUB 


#4, 


R5 


ADJUST RETURN POINTER. 


BR 


4$ 




GO BACK AND TRY AGAIN. 


DEC 


R4 




COUNT WORDS. 


BUd 


2S 




BR IF MORE. 


JSR 


R5, 


SPRINT 


GO PRINT OUT THE FOLLOWING MESSAGE. 


. WORD 


PRELOC 




ADDRESS OF MESSAGE TO BE TYPED 








"PROGRAM RELOCATED TO " 


MOV 


R3, 


-(SP) 


PUT THE DATA ON THE STACK, 


JSR 


PC, 


STYPAD 


DETERMINE THE PHYSICAL ADDRESS AND TYPE IT 


MOV 


(SP)+.R4 


; POP STACK INTO R4 


MOV 


{SP)+,R3 


;POP STACK INTO R3 


MOV 


(SP)+,R2 




;POP STACK INTO R2 


RTS 


R5 




RETURN 











SUBROUTINE TO MOVE PROGRAM FROM BOTTOM TO TOP OF MEMORY. 



■'62114 RELTOP: 



172346 2$: 









CMP 


f3. 


PRGMAP ; CHECK THAT THE PROGRAM IS NOW IN BANKS 


BEO 


1$ 


;BR IF OK 


HALT 




;FATAL ERROR!!! PROG SHOULD BE IN BANKS AND 1 


MOV 


RO,-(SP) 


; ; PUSH RO ON STACK 


MOV 


R1 ,-( SP) 


; ; PUSH R1 ON STACK 


TST 


MMA\/A 




BEO 


10$ 




MOV 


nl6Q0 , 


@ffKIPAR3 ;SET PAR TO TOP OF MEM 


CLR 


RO 


;INIT BANK POINTER... LO 64K 


MOV 


*BIT15, 


R1 ; . . .HI 64K. 


SUB 


^'200 , 


(?^KIPAR3 ; BACK DOWN ONE BANK. 


RCR 


R1 


;MOVE POINTER... HI 64K. 


ROR 


RO 


; . . LO 64K. 


BCS 


90$ 




BIT 


R1 , 


MEMMAP+2 ; CHECK FOR BANK EXISTS. 



CZOMCFO 


D-124K K'EMORY 


EXERCISER, 16K 


C20MCF . 


P11 14-FEB-78 


08: 19 




3533 


1 6540 


001 003 






3534 


01 6542 


030067 _ 


162756 




3535 


1 6546 


^ IZ^^ 






3536 


1 6550 


01 37.. . 


172346 


172344 


3S37 


1 6556 


1 0046 






3538 


1 6560 


010146 






3539 


1 6562 


162737 


000200 


172344 


3540 


1 6570 


00 6001 






3541 


1 6572 


006000 






3542 


1 6574 


1 C3457 






3543 


01 6576 


0*^01 67 


162724 




3544 


01 6602 


00 1 003 






3545 


01 6604 


030067 


162714 




3546 


1 66 1 


00 1 764 






3547 


01 661 2 


05260 1 






3548 


01 661 4 


052600 






3549 


1 661 6 


0^0067 


161760 




3550 


01 6622 ■ 


001 044 






3551 


1 6624 


004567 


177506 




3552 


1 6630 


000000 






3553 


1 6632 


04 0000 






3554 


1 6634 


^Z^I 


172'^44 


1 72340 


3555 


1 6642 


01 3737 


172346 


172342 


3556 










3557 


1 6650 


01 1 b / 


161730 




3558 


1 6654 


00 0473 






3559 










3560 


1 6656 




000400 




3561 


1 6662 


OC 500 1 






3562 


1 6664 




020000 




3563 


1 6570 


00 6200 






3564 


01 6672 








3565 


016674 


03 0067 


162624 




3566 


1 6700 








3567 




?62701 


020000 




3558 


0167 06 


006200 






3569 


016710 


10 341 1 






3570 


016712 


030067 


162606 




3571 


016716 


001762 






3572 


016720 


01 0046 






3573 


015722 


006300 






. 3574 


016724 


052600 






3575 


016726 


030067 


161650 




3576 


016732 


001401 






3577 


016734 








3578 


016734 


000000 






3579 


016736 


01 0167 


000006 




3580 


016742 


004567 


177370 




3581 


016746 


000000 






3582 


015750 


000000 






3583 


016752 


01 0167 


161622 




3584 


016756 


060107 






3585 










3586 


016760 


060106 






3587 


016762 


01 0167 


161612 




3588 


015765 


060137 


000004 
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BNE 

BIT 

BEO 

MOV 

MOV 

MOV 

SUB 

RC.T 

ROR 

BCS 

BIT 

BNE 

BIT 

BEQ 

BIS 

BIS 

BIT 

BNE 

JSR 

.WORD 

.WORD 

MOV 

MOV 



MEMMAP 



RO, 
2S 

(gi*KIPAR3,©#KIPAR2 
R0,-(SP) 
R1 ,-(SP) 

#200, ®#KIPAR2 
R1 
RO 
90S 

R1, MEMMAP+a 
6S 
RO, 
4$ 

(SP) + 
{SP) + 
RO, 
90$ 
R5, 


40000 

®#KIPAR2,©>#KIPAR0 



MEMMAP 



RO 

PRGMAP 



REUQC 



;BR IF AVAILABLE 
ICHECK FOR BANK EXISTS. 
;BR IF NO BANK FOUND. 
;COPY PAR 
PUSH RO ON STACK 
PUSH R1 ON STACK 
;5ACK DOWN WITH LOW PAR. 
SHIFT POINTER. 
. . .LO 54K. 
BR IF OVERFLOW. 

; CHECK IF BANK EXISTS... HI 64K. 

BR IF BANK EXISTS. 
CHECK IF BANK EXISTS... LO 64K. 
BR IF BANK DOESN'T EXIST, 
GET SECOND BANK POINTER. 
. . . LO 64K. 
CHECK FOR CONFLICT. 

ABORT IF DESTINATION OVERLAYS SOURCE. 
GO RELOCATE PROGRAM. 
SOURCE FIRST ADDRESS. 
DESTINATION FIRST ADDRESS. 
RELOCATE LO BANK 



@i*KIPAR3,©#KIPAR1 ;RELOCATE HI BANK. 



PROGRAM SHOULD NOW BE EXICUTING OUT OF LAST TWO BANKS OF MEMORY. 



MOV 


R1 , 


PRGMAP+2 


.•RESET PROGRAM MAP. 


BR 


30$ 


; BR TO COMMON EXIT. 


MOV 


#BITB, 


RO 


SET BANK POINTER TO TOP OF MEM. 


CLR 


R1 




SET ADDRESS POINTER TO TOP. 


SUB 


#20000, 


R1 


BACK DOWN ONE BANK. 


ASR 


RO 




MOVE POINTER DOWN ONE BANK. 


BCS 


90$ 




BR IF OVERFLOW. 


BIT 


RO, 


MEMMAP 


CHECK IF THIS BANK EXISTS. 


BEQ 


11$ 




BR IF NON-EXISTANT BANK. 


SUB 


#20000, 


R1 


BACK DOWN TO NEXT BANK. 


ASR 


RO 




MOV POINTER DOWN ONE BANK. 


BCS 


90$ 




BR IF OVERFLOW. 


BIT 


RO, 


MEMMAP 


CHECK IF THIS BANK EXISTS. 


BEO 


11$ 




BR TO START OVER IF NO LOWER BANK. 


MOV 


RO, 


-(SP) 


SAVE THE POINTER. 


ASL 


RO 




RESET POINTER TO HI BANK. 


BIS 


(SP)+, 


RO 


SET BIT FOR LO BANK. 


BIT 


RO, 


PRGMAP 


CHECK FOR A PROGRAM CONFLICT. 


BEQ 


12$ 




BR IF NO CONFLICT. 



HALT 
: MOV 

JSR 

.WORD 
: .WORD 

MOV 

ADD 
PROGRAM NOW 

ADD 

MOV 

ADD 



; FATAL ERROR! 



NOT ENOUGH MEMORY?? 



SET DATA FOR RELOCATION SUBROUTINE. 
GO RELOCATE THE PROGRAM TO TQP OF MEM. 
SOURCE STARTING ADDRESS. 
DESTINATION STARTING ADDRESS. 
SET RELOCATION FACTOR IN UNRELOCATED CODE. 
UU?/1P TO RELOCATED PROGRAM 
EXICUTING OUT OF TOP OF MEMORY. 

R1 , SP ; ADJUST THE STACK POINTER TO TOP OF MEMORY. 

R1, RELOCF ;SET THE RELOCATION FACTOR. 

R1, «!#ERRVEC ;ADJUST ERROR VECTOR. 



R1 , 
R5, 



R1 , 



13$ 
RELOC 



RELOCF 



C20MCF0 


0-124K MEMORY 


EXERCISER, 16K 


VER 


MACY1 1 


30A( 1052) 


20-FEB- 


-78 07:56 PAGE 75 


CZOMCF . 


P11 14-FEB-7a 


08: 19 




RELOCATION SUBROUTINES. 






3589 


016772 


0601 37 


000024 






ADD 


R1 , 


®#PWRVEC 


;ADJUST POWER FAIL VECTOR. 


3590 


016776 


0601 37 


OOOt 14 






ADD 


R1 , 


@#PARVEC 


; ADJUST PAPITY ERROR VECTOR. 


3591 


01 7002 


026727 


162132 


177570 




CMP 


SWR, 


#177570 


CHECK FOR HARDWARE SWITCH REGISTER. 


3592 


017010 


001404 








BEO 


14$ 




BR IF HARDWARE SWITCH REGISTER. 


3593 


017012 


060167 


162122 






ADD 


R1 . 


SWR 


ADJUST SOFTWARE SWITCH REGISTER. 


3594 


017016 


060167 


162120 






ADD 


R1 , 


DISPLAY 


ADJUST SOFTWARE DISPLAY REGISTER. 


3595 


01 7022 


062701 


001622 




14$: 


ADD 


#RADTAB, 


R1 


POINT TO THE RELATIVE RELOCATION TABLE. 


3596 


017026 


066721 


161546 




15$: 


ADD 


RELOCF, 


(R1) + 


ADD RELOCATION FACTOR TO ADDRESSES IN TABLE 


3597 


017032 


0C5721 






16$: 


TST 


(R1) + 




CHECK FOR INTERUM TERMINATOR. 


3598 


01 7034 


OC 1776 








BEQ 


16$ 




BR SO AS TO NOT MODIFY ZERO. 


3599 


017036 


024127 


177777 






CMP 


-(R1 ) , 


#-1 


CHECK FOR END OF TABLE. 


3600 


01 7042 


001371 








BNE 


15$ 




BR IF MORE IN TABLE. 


3601 


01 7044 


01 0067 


161532 




30$: 


MOV 


RO, 


PRGMAP 


SET NEW PROGRAM MAP...LO 64K. 


3602 


01 7050 


01 2601 








MOV 


(SP)+,R1 




;POP STACK INTO R1 


3603 


017052 


01 2600 








MOV 


(SP)+,R0 


;POP STACK INTO RO 


3604 


017054 


066716 


161520 






ADD 


RELOCF, 


(SP) 


ADJUST RETURN ADDRESS. 


3605 


01 7060 


000207 








RTS 


PC 




RETURN 


3606 
3607 












* ,x « « * >«< * >;. -.^n 








3608 












SUBROUTINE 


TO RELOCATE PROGRAM BACK TO BANKS ^ AND 1 . 


3609 
















********** ******************** 


3610 


01 7062 


032767 


000003 


161512 


RELO 


: BIT 


#3, 


PRGMAP 


CHECK FOR PROGRAM ALREADY IN BANKS OR 1 . 


361 1 


017070 


00 1401 








BEQ 


1$ 


;BR IF NO CONFLICT. 


3612 


017072 


000000 








HALT 




; FATAL ERROR!!! PROGRAM ALREADY IN BANKS OR 1!!!! 


3613 


01 7074 


0C5767 


161506 




1$: 


TST 


MMAVA 




CHECK FOR ^•E^^ MGMT. 


3614 


01 71 00 


001417 








BEQ 


10$ 




BR IF NO MEMMGMT. 


3615 


01 71 02 


005037 


172344 






CLR 


©i^KlPAR^ 


SET PAR 2 TO BANK 0. 


3616 


01 71 06 


01 2737 


000200 


172346 




MOV 


#200, 


##KIPAR3 


;SET PAR 3 TO BANK 1 . 


3617 


017114 


004567 


177216 






JSR 


R5, 


RELOC 


GO MOVE 8K INTO BANKS AND 1. 


3618 


01 71 20 


000000 








.WORD 







SOURCE STARTING ADDRESS. 


3619 


01 71 22 


040000 








.WORD 


40000 




DESTINATION STARTING ADDRESS. 


3620 


017124 


005037 


172340 






CLR 


PffKIPARO . 


RESTORE PAR TO BANKO. 


3621 


017130 


01 2737 


000200 


172342 




MOV 


#200, 


@-#KIPARl 


; RESTORE PAR 1 TO BANK 1. 


3622 












PROGRAM IS 


NOW EXICUTING OUT 


OF BANKS AND 1 . 


3623 


01 71 36 


000444 








BR 


30$ 


;BR TO COMMON EXIT. 


3624 
3625 


017140 


016746 


161434 




10$: 


MOV 


RELOCF, 


-(SP) 


PUT RELOCATION FACTOR ONTO THE STACK. 


3625 


01 7144 


01 1667 


000004 






MOV 


(SP), 


20$ 


SET DATA FOR RELOC SUBROUTINE, 


3627 


01 71 50 


004567 


177162 






JSR 


R5, 


RELOC 


GO MOVE THE PROGRAM BACK TO BANKS AND 1 . 


3628 


017154 


000000 






20$: 


.WORD 







SOURCE STARTING ADDRESS. 


3629 


017156 


000000 








• WORD 







DESTINATION STARTING ADDRESS. 


3630 


01 71 60 


161607 








SUB 


(SP). 


PC 


JUMP TO RELOCATED PROGRAM. 


3631 












THE PROGRAM IS NOW EXICUTING 


OUT OF BANKS AND 1 . 


3632 


017162 


1616'".3 








SUB 


(SP), 


SP 


RESET THE STACK POINTER. 


3633 


01 71 64 


01 0046 








MOV 


R0,-(SP) 




;PUSH RO ON STACK 


3634 


01 71 65 


01 2700 


001622 






MOV 


#RADTAB,R0 


SET UP POINTER TO RELATIVE ADDRESS TABLE. 


3635 


0171 72 


1 66620 


000002 




2.$: 


SUB 


2(SP). 


(R0) + 


RESET ADDRESSES TO UNRELOCATED VALUES. 


3636 


01 71 76 


0C5720 






22$: 


T^T 


(R0) + 




CHECK FOR TERMINATORS. 


3637 


01 7200 


00 1 776 








BEO 


22$ 




BR OVER TERMINATORS. 


3638 


01 7202 


024027 


1 77777 






CMP 


-(RO) , 




CHECK FOR END OF TABLE INDICATOR. 


3639 


01 7206 


O" 1371 








BNE 


21$ 




BR IF MORE ADDRESSES IN TABLE. 


3640 


017 210 


01 2600 








MOV 


(SP)+,RO 


;PQP STACK INTO RO 


3641 


01 721 2 


161637 


000004 






SUB 


(SP) , 


@#ERRVEC 


•.ADJUST ERPOR VECTOR. 


3642 


017216 


161637 


000024 






SUB 


(SP), 


@#P..RVEC 


•.ADJUST POWER FAIL VECTOR. 


3643 


01 7222 


161627 


0001 14 






SUB 


(SP), 


@# ■ ARVEC 


;ADJUST PARITY ERROR VECTOR. 


3644 


01 7226 


025727 


161706 


177570 




CMP 


SWR, 


#177570 


CHECK FOR HARDWARE SWITCH REGISTER. 
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3645 


1 7234 


OC 1 404 










BEO 


23$ 


:3R IF HARDWARE SWITCH REGISTER. 


3646 


1 7236 


1 6 1 667 


1 61 676 








SUB 


(SP), SWR 


;ADJUST SOFTWARE SWITCH REGISTER. 


3647 


01 7242 


1 6 1 667 


1 61 674 








SUB 


(SP), DISPLAY 


;ADJUST SOFTWARE DISPLAY REGISTER, 


3648 


1 7246 


162616 






23$ 




SUB 


(SP}+, (SP) 


; ADJUST RETURN ADDRESS- 


3649 


1 7250 


005067 


161 324 




30S 




CLR 


RELOCF 


IRESET RELOCATION FACTOR. 


3650 


1 7254 


01 2767 


000003 


161 320 






MOV 


#3. DRGMAP 


;SET PROGRAM MAP TO POINT TO BANKS AND 1. 


3651 


01 7262 


005067 


161316 








CLR 


PRGMAP+2 


; . . .HI 64K. 


3652 


01 7266 


000207 










RTS 


PC 


;RETURN. 


3653 




















3654 
































THIS 


SUBROUTINE MOVES THE LOADER AREA BACK TO THE "TQP" QF MEMORY FROM 


3656 












WHENCE ^ 


: CAME. THE LOADER 


AREA IS SAVED AT THE END OF THE 8K OF 


3657 












PRO 


GRAM 


CODE WHEN THE PROGRAM IS INITIALLY RUN. 


3658 




















3659 


01 7270 


01 6700 


1 62224 




RESLDR: 


MOV 


LMAD, RO 


; CHECK IF THE LOADERS WERE SAVED. 


3660 


1 7274 


00 1 00 1 










BNE 


1$ 


;BR IF LOADER AREA WAS SAVED. 


3661 


1 7276 


000000 










HALT 


•.FATAL ERROR!!! CAN'T RESTORE LOADER AREA IF IT WASN'T 


3662 


1 7300 


005767 


161 302 




1$: 




TS~ 


MMAVA 


; CHECK FOR MGVJ . 


3663 


1 7304 


00 1 402 










BEO 


2$ 


;SK1P IF NO MEM MGMT . 


3564 


017306 


0C5037 


1 77572 








CLR 


@#SRO 


; DISABLE MEM MGMT. 


3665 


01 73 1 2 


01 2701 


040000 




2$: 




MOV 


#40000, R1 


;GET END OF 8K, ASSUME PROG NQT RELOCATED. 


3666 


017316 


01 2702 


002734 








MOV 


#1500.. R2 


;GET COUNTER. 


3667 


1 7322 


01 41 40 






3S: 




MOV 


~(R1), -(RO) 


;MOVE THE tCADER AREA. 


3668 


01 7324 


0053c2 










DEC 


R2 


; COUNT HOW LONG THE AREA IS. 


3669 


01 7326 


00 1 375 










BNE 


3$ 


;SR IF NOT ^■ORE TO MOVE. 


3670 


01 7330 


005067 


1 621 64 








CLR 


LMAD 


;CLEAR MONITOR SAVED FLAG 


3671 


01 7334 


005767 


161 246 








TST 


MMAVA 


; CHECK FOR MEM MGMT. 


3572 


017340 


001402 










Bl^ 


4$ 


•,BR IF NO MEM MGMT. 


3673 


01 7342 


0C5237 


177572 








INC 


P/^SRO 


; ENABLE MEM MGMT. 


3674 


017346 


0002C7 






4S: 




RTS 


PC 


IRETURN. 


3675 




















3676 












ROUTINE 


TO SAVE THE LOADERS 


AT THE END OF 8K. 


3677 


017350 


005767 


162144 




SAVLDR: 


TST 


LMAD 


;CHECK IF LOADERS HAVE BEEN SAVED ALREADY. 


3678 


017354 


001024 










BNE 


4$ 


; BRANCH IF ALREADY SAVED 


3679 


01 7356 


01 2700 


040000 








MOV 


#40000, RO 


;GET END OF 8K 


3680 


01 7362 


01 0001 










MOV 


RO, R1 


•,GET END OF 8K 


3681 


017364 


01 2737 


01 7376 


000004 






MOV 


*2$, ©i^ERRVEC 


;SET UP TIMEOUT VECTOR 


3632 


017372 


01 1020 






IS: 




MOV 


(RO), (RO)* 


; SEARCH FOR END OF MEMORY 


3683 


017374 


000776 










BR 


1$ 


:KEEP SEARCHING 


3684 


017376 


022626 






2S: 




CMP 


(SP)+. (SP)+ 


;RESTORE STACK POINTER 


3685 


01 7400 


01 2737 


0251 14 


000004 






MOV 


#ERRTRP,(^pERRVEC 


;RESET TIMEOUT VECTOR. 


3686 


01 7406 


01 0046 










MOV 


RO, -(SP) 


;SAVE LAST MEMORY ADDRESS (CONTIGUOUS) 


3687 


017410 


01 2702 


002734 








MOV 


^1500., R2 


;SET UP WORD COUNTER 


3688 


017414 


01 4041 






as: 




MOV 


-(RO), -(R1) 


;SAVE THE LOADERS 


3589 


017416 


005302 










DEC 


R2 


■.COUNT THE WORDS 


3690 


017420 


001375 










BNE 


3$ 


; BRANCH IF MORE WORDS 


3591 


017422 


01 2657 


162072 








MOV 


(SP)+, LMAD 


;SAVE LAST MEMORY ADDRESS 


3692 


017426 


000207 






4S: 




RTS 


PC 


•.RETURN 



CZOMCFC 


0-1 24K MEMORY 


EXERCISER, 16K 


VER 


MACY1 1 
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20-FEB- 


-78 07:56 PAGE 77 


C2QMCF . 


PI 1 


4-FEB-78 


08: 19 




PARITY 


MEMORY 


TRAP SERVICE AND SUBROUTINES, 


3693 












SBTTL 


PARITY 


MEMORY TRAP SERVICE AND SUBROUTINES. 


3694 




















3695 












* PARITY MEMORY UNEXPECTED ERROR TRAP SERVICE ROUTINE. 


3596 












* FIND OUT VHICH REGISTER DETECTED THE ERPOR, 


3697 












♦ THEN SCAN 


MEMORY TO 


SEE IF PARITY ERROR STILL SET AND REPORT LOCATION. 


3698 




















3699 


017430 


01 1667 


16146S 




PtSRV: 


MOV 


(SP), 


SBDADR 


GET PC OF INSTRUCTION WHICH CAUSED ERROR. 


3700 


017434 


0C4567 


004052 










R5. 


SPRINT 


GO PRINT OUT THE FOLLOWING MESSAGE. 


3701 


01 7440 


026501 










. WORD 


UNEXPT 




ADDRESS OF MESSAGE TO BE TYPED 


3702 




















"UNEXPECTED MEMORY PARITY TRAP." 


3703 


017442 


01 0146 










MOV 


R1 ,-(SP) 




•.PUSH R1 ON STACK 


3704 


01 7444 


01 0346 










MOV 


R3,-(SP) 




iPUSH R3 ON STACK 


3705 


017446 


01 5703 


162156 








MOV 


.MPRX, 


R3 


GET POINTER TO PARITY REGISTERS. 


3706 


01 7452 


0C5733 






1$: 


TST 


r-(R3) + 




CHECK THE PARITY REG FOR AN ERROR FLAG. 


3707 


01 7454 


10 0415 










BMI 


3$ 




BR IF THIS REGISTER SHOWS THE ERROR. 


3708 


01 7456 


005713 










TST 


(R3) 




CHECK FOR TABLE TERMINATOR. 


3709 


01 7460 


00 1374 










BNE 


1$ 




BR IF MORE REGISTERS. 


3710 


01 7462 


004767 


002152 








USR 


PC, 


SERROR 


*** ERROR *** (GO TYPE A MESSAGE) 


371 1 












***ERROR*** 


NO REGISTER INDICATED ERROR 


3712 


01 7466 


000024 










.WORD 


24 




ERROR TYPE CODE. 


3713 


01 7470 


00041 7 










BR 


4S 


; EXIT 


3714 


01 7472 


005713 






2$: 


TST 


(R3) 


;CHECK FOR TABLE TERMINATOR. 


3715 


01 7474 


0C1415 










BEO 


4$ 




3R IF NO MORE PARITY REGISTERS, 


3716 


017476 


005733 










TST 


@(R3)+ 




CHECK THE PARITY REG FOR AN ERROR FLAG. 


3717 


017500 


100374 










BPL 


2S 




BR IF NO EFROR FLAG- 


3718 


017502 


004567 


004004 








USR 


R5, 


SPRINT ;G0 PRINT OUT THE FOLLOWING MESSAGE. 


3719 


01 7506 


026572 










.WORD 


MTOE 


;ADDRESS OF MESSAGE TO BE TYPED 


3720 




















"MORE THAN ONE ERROR FOUND." 


3721 


01 7510 








3$: 










3722 


01 751 


004767 


000610 




64$: 


USR 


PC, 


SPRNTQ 


SET UP VALUES FOR ERROR PRINTINQ. 


3723 


01 7514 


004767 


002120 








dSR 


PC, 


SERROR 


*** ERROR *** (GO TYPE A MESSAG^) 


3724 


017520 


0C0025 










.WORD 


25 




ERROR TYPE CODE. 


3725 


017522 


004767 


000216 








dSR 


PC, 


PSCAN 


GO SCAN MEMORY FOR BAD PARITY. 


3726 


01 7526 


000761 










BR 


2$ 




GO LOOK FOR MORE ERRORS. 


3727 


017530 








4S: 










3728 


01 7530 


0! 2603 










MOV 


(SP)+,R3 


;POP STACK INTO R3 


3729 


017532 


01 2601 










MOV 


(SP)+,R1 




;POP STACK INTO R1 


3730 


017534 


000002 










RTI 






RETURN. 


3731 






















3732 






















3733 












ROUTINE TO ENABLE PARITY ERROR ACTION ON MA/MF PARITY MEMORIES 


3734 












THIS 


ROUTINE 


IS MEANT TO CATCH UNEXPECTEDS 


3735 






















3736 


01 7536 


005767 


162534 




MAMF : 


TST 


MPRX 




CHECK IF ANY PARITY REGISTERS EXIST. 


3737 . 


01 7542 


00 1 434 










BEO 


MAMF2 




EXIT IF NO PARITY REGISTERS. 


3738 


01 7544 


032777 


0001 00 


161366 






BIT 


#Sw6, 


@SWR 


CHECK FOR INHIBIT PARITY ERROR DETECTION, 


3739 


01 7552 


001030 










BNE 


MAMF2 




EXIT IF NQ PARITY ERROR DETECTION. 


3740 


01 7554 


0C5767 


161020 








TST 


RELOCF 




CHECK IF PROGRAM RELOCATED OUT OF BANK 0. 


3741 


01 7560 


00 1410 










BEO 


SETAE 




BR IF PR03 IN BANK 0. 


3742 


017562 


032777 


000040 


101350 






BIT 




©SWR 


CHECK IF VECTORS PROTECTED. 


3743 


01 7570 


001004 










BNE 


SETAE 




BR IF VECTOR AREA PROTECTED. 


3744 


01 7572 


026727 


161764 


001000 






CMP 


FSTADR, 


*1000 


CHECK FOR STARTING ADDRESS ABOVE THE VECTORS 


3745 


017600 


1C3415 










BLO 


MAMF2 




EXIT IF VECTORS EXPOSED TO TESTING. 
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000114 SETAE: 



3746 


01 7602 


01 6737 


162030 


3747 


017610 


005037 . 


0001 16 


3748 


017614 


01 0346 




3749 


01 7616 


01 6703 


162006 


3750 


01 7622 


052733 


000001 


3751 


01 7626 


0C5713 




3752 


01 7630 


001374 




3753 


017632 


01 2603 




3754 


017634 


000207 




3755 








3756 








3757 








3758 








3759 


01 7636 


005767 


1624: i 


3760 


01 7642 


001437 




3761 


01 7644 


032777 


000100 


3762 


017652 


001033 




3763 


01 7654 


01 0346 




3764 


017656 


01 6703 


161746 


3765 


01 7662 


005733 




3766 


01 7664 


1C0023 




3767 


01 7666 


032773 


000001 


3768 


017674 


001010 




3769 


017676 


0G4767 


000422 


3770 


017702 


0C4767 


001732 


3771 


017706 


0C0026 




3772 


017710 


00041 1 




3773 


017712 


004767 


000026 


3774 


017716 






3775 


017716 


004767 


000402 


3776 


017722 


004767 


001712 


3777 


017726 


000027 




3778 


017730 


004767 


000010 


3779 


017734 


005713 




3780 


017736 


001351 




3781 


017740 


012603 




3782 


017742 


000207 




3783 








3784 








3785 








3786 








3787 








3788 









MOV 


ePESRV. @#PARVEC 


;SET PARITY ERROR TRAP VECTOR 


CLR 


®#PARVEC+2 


: PRIORITY LEVEL ON TRAP 


MOV 


R3.-(SP) 


; ; PUSH R3 ON STACK 


MOV 


•MPRX. R3 


;GET PARITY REGISTER TABLE POINTER. 


BIS 


ifAE, #(R3) + 


;SET ACTION ENABLE BIT IN PARITY REG 


TST 


(R3) 


; CHECK FOR END OF TABLE. 


BNE 


MAMF1 


;BR IF MORE PARITY REGISTERS. 


MOV 


(SP)+,R3 


; :POP STACK INTO R3 


RTS 


PC 


; RETURN. 



PARITY REGISTERS FOR 



THAT DIDN'T TRAP. 



2$: 
65$: 



TST 






4$ 


BIT 


#SW6, i 


BNE 


4$ 


MOV 


R3.-(SP) 


MOV 


.MPRX, 


TST 


@(R3)+ 


BPL 


3$ • 


BIT 


#BIT0, « 


BNE 


2$ 


JSR 


PC, 


JSR 


PC, 


.WORD 


26 


BR 


3$ 


USR 


PC, 




PC, 




PC, 


.WOOD 


27 


TST 


\lh 




1$ 


MOV 


(SP)^-.R3 



;C 



IF 



SPRNTQ 
SERROR 



IF NO PARITY 
; CHECK FOR INHIBIT PARITY ERROR CHECKING. 
;BR IF PARITY ERROR CHECKING INHIBITED. 
: ; PUSH R3 CM STACK 
;GET PARITY REG TABLE POINTER. 
: CHECK THE PARITY -REG FOR AN ERROR FLAG. 
;BR IF NO ERROR 

; CHECK IF A TRAP SHOULD HAVE OCCURRED. 
;BR IF NO ACTION ENABLE. 
-.SET UP VALUES FOR ERROR PRINTING. 
;*** ERROR (GO TYPE A MESSAGE) 

: ERROR TYPE CODE. 



PSCAN ; GO SCAN ALL MEMORY FOR PARITY ERRORS. 




CZOMCFO 


0-1 24K MEMORY 


EXERCISER, 16K 


VER 


MACY1 1 


30A(1052) 


20-FEP- 


-78 07:56 PAGE 79 


CZOMCF . 


P11 1^ 


|-FEB-7a 


08:19 


PARITY 


MEMORY 


TRAP SERVICE AND SUBROUTINES. 


3789 


017744 






PSCAN : 










3790 


017744 


01 0046 






MOV 


RO,-(SP) 




;PUSH RO ON STACK 


3791 


017746 


010146 






MOV 


R1 .-(SP) 




;PUSH R1 ON STACK 


3792 


017750 








MOV 


R2,-(SP) 




;PUSH R2 ON STACK 


3793 


017752 


010346 






MOV 


R3,-(SP) 




;PUSH R3 ON STACK 


3794 


017754 


01 0446 






MOV 


R4,-(SP; 




;PUSH R4 ON STACK 


3795 


017756 


013746 


0001 14 




MOV 


@>#1 14,-{SP) 


;PUSH #i^1 14 ON STACK 


3796 


017762 


013746 


0001 16 




MOV 


®#1 16,-(SP) 


;PUSH §'#116 ON STACK 


3797 


017766 


004567 


003520 




dSR 


R5, 


$PRINT 


GO PRINT OUT THE FOLLOWING MESSAGE. 


3798 


017772 


026635 






.WORD 


SCANM 




ADDRESS OF MESSAGE TO BE TYPED 


3799 
















"SCANNING MEr^ORY FOR BAD PARITY." 


3B00 


017774 


01 2700 


000001 




MOV 


#BITO, 


RO 


SET SIT POINTER TO FIRST BANK. 


3801 


020000 


005001 






CLR 


R1 


;CLR HI 64K POINTER. 


3802 


020002 


005002 






CLR 


R2 


;INIT ADDRESS POINTER. 


3803 


020004 


005004 






CLR 


R4 


;INIT ERROR DETECTED FLAG. 


3804 


020006 


0C4767 


000256 




USR 


PC, 


CLRPAR -.CLEAR THE PARITY REGISTERS. 


3805 


020012 


012737 


000116 000114 




MOV 


#116. 


@#114 ;HALT IF ANOTHER PARITY TRAP. 


3806 


020020 


005037 


0001 16 




CL!! 


e>si116 






3807 


020024 


005767 


160556 




TST 


MMAVA 




CHECK FOR P^EMORY MANAGEMENT. 


3808 


020030 


001406 






BEQ 


1$ 


;BR IF NO MEM MGMT. 


3809 


020032 


013746 


172344 




MOV 


@fKIPAR2 


.-(SP) 


;:PUSH @#KIPAR2 ON STACK 


3810 


020036 


005037 


172344 




CLR 


@#KIPAR2 


;INIT MEM MGMT TO POINT TO BANK 0. 


381 1 


020042 


01 2702 


040000 




MOV 


#40000, 


R2 ;SET ADR POINTER TO PAR2. 


3812 


020046 


0300d7 


161452 


1$: 


BIT 


RO, 


MEMMAP 


CHECK IF THIS BANK OF MEM EXISTS. 


3813 


020052 


001003 






BNE 


2$ 


;BR IF THIS BANK EXISTS. 


3814 


020054 


030167 


161446 




BIT 




MEMMAP+2 


; CHECK HI 64K MAP. 


3815 


020060 


001442 






BEO 


Vok 




BR IF THIS BANK DOESN'T EXIST. 


3816 


020062 






2S: 










3817 


020062 


01 0146 






MOV 


R1 ,-(SP) 


; ;PUSH R1 OM STACK 


3818 


020064 


1 1 1201 




3$: 


MOVB 


(R2). 


R1 ;READ THE LOCATION TO SEE IF IT HAS A PARITY 


3819 


020066 


C : 6703 


161536 




MOV 


.MPRX, 


R3 ;SET UP POINTER TO PARITY REGISTERS. 


3820 


020072 


005733 




4$: 


TST 


@(R3)+ 


; CHECK FOR THE ERROR FLAG. 


3821 


02C074 


100024 






BPL 


6$ 


;BR IF NO ERROR FLAG. 


3822 




005704 






TST 


R4 




CHECK IF FIRST ERROR. THIS SCAN. 


3823 


020100 


001003 






BNE 


5$ 




BR IF MORE THAN ONE ERROR FOUND. 


3824 


0201 02 


005367 


161004 




DEC 


$ERTTL 




ADJUST ERROR COUNT. 




020106 


005204 






INC 


R4 




SET FLAG TO INDICATE ERROR FOUND. 


3826 


020110 






5S: 












020110 


004767 


000210 


64$: 


JSR 


PC. 


SPRNTO 


SET UP VALUES FOR ERROR PRINTING. 


3828 


0201 14 


004767 


001520 




USR 


PC, 


$ERRCR 


*** ERROR *** (GO TYPE A MESSAGE) 


3829 


020120 


000030 






.WORD 


30 




ERROR TYPE CODE. 


3830 


020122 


111212 






MOVB 


{R2). 


{R2) 


REWRITE THE LOCATION TO CLEAR BAD PARITY. 


3831 


020124 








CLR 


@-(R3) 




CLEAR THE ERROR FLAG. 


3832 


020126 


105712 






TSTB 


(R2) 




CHECK IF THE PARITY ERROR WAS CLEARED. 


3833 


0201 30 


005733 






TST 


@(R3)+ 




CHECK FOR THE ERROR FLAG. 


3834 


020132 


100005 






BPL 


6$ 




BR IF IT IS OK. 


3835 


020134 


004567 


00-3352 




JSR 


R5, 


SPRINT 


GO PRINT OUT THE FOLLOWING MESSAGE. 


3836 


020140 


026700 






.WORD 


PEWNC 




ADDRESS OF MESSAGE TO BE TYPED 


3837 
















"PARITY ERROR WILL NOT CLEAR. " 


3838 


020142 


005073 


177776 




CLR 


@-2(R3) 




CLEAR OUT THE PARITY ERROR FLAG. 


3839 


020146 


005713 




65: 


TST 


(R3) 




CHECK FOR THE END OF REG ADR TABLE. 


3840 


020150 


001350 






BNE 


4$ 




BR IF MORE PARITY REGISTERS. 


3841 


020152 


0052C2 






INC 


R2 




GO TO NEXT MEMORY ADDRESS. 


3842 


020154 


032702 


01777 7 




BIT 


#MASK4K,R2 


CHECK FOR END OF 4K BANK. 


3843 


0201 60 


001341 






BNE 


3$ 




BR IF MORE MEMORY THIS BANK. 


3844 


020162 


01 2601 






MOV 


(SP)+,R1 




;POP STACK INTO R1 
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CZQMCF . 


P 1 1 1 




08 : 1 9 


PARITY 


MEMORY 


TRAP SERVICE AND 


SUBROUTINES. 


3845 


0201 64 


000402 








BR 


1 IS 


;BR TO CHECK FOR NEXT BANK. 


3846 


201 66 


062702 


020000 


10$: 


ADD 


ft20000, R2 


;SK1P BANKS THAT AREN'T THERE. 


3B4 7 


2017 2 


005767 


160410 


11$: 


TST 


MMAVA 


; CHECK FOR VEM MGMT . 


3848 


020 176 


00 1 4 ' 3 








BEO 


12$ 


; BR IF NO MEM MGMT. 


3849 


020200 


062737 


000200 172344 






ADD 


#200, (?#KIPAR2 ;UPDATE MEM MGMT REG TO NEXT 4K. 


3850 


020206 


0; 2.702 


040000 






MOV 


#40000, R2 


; RESET ADDRESS POINTER TO BEGINNING OF BANK 


3851 


0202 1 2 


CC6300 








ASL 


RO 


;UPDATE BANK POINTER. 


3852 


020214 


0061 01 








Rf . 


R1 


; . . .HI 64K. 


3853 


020216 


10 0313 








8PL 


IS 


;BR IF MORE BANKS. 


3854 


020220 


01 2637 


1 72344 






MOV 


(SP)+,@#KIPAR2 


;;POP STACK INTO @#KIPAR2 


3855 


020224 


0'" 0402 








BR 


20$ 


;G0 CHECK IF ANY ERRORS FOUND. 


3856 


020226 


106300 






2$: 


ASLB 


RO 


;UPDATE POINTER TG NEXT BANK. 


3857 


020230 


1 00306 








BPL 


1$ 


;BR IF MORE BANKS. 


3858 


020232 


OC 5704 




20$: 


TST 


R4 


;CHECK IF ANY PARITY ERRORS DETECTED. 


3059 


02C234 


001003 








BNE 


21$ 


;BR IF ERRORS DETECTED. 


3860 


020236 


0C4567 


003250 






JSR 


R5, SPRINT 


•,G0 PRINT OUT THE FOLLOWING MESSAGE. 


3861 


020242 


025706 








.WORD 


NOPES 


; ADDRESS OF MESSAGE TO BE TYPED 


3862 


020244 






21$: 








3863 


020244 


01 2637 


00011 5 






MOV 


(SP)+,@A1 16 


; ;POP STACK INTO @# 1 1 6 


3864 


020250 


01 2637 


0001 14 






MOV 


(SP) + ,@i#1 14 


; ; POP STACK INTO §.#114 


3365 


020254 


01 2604 








MOV 


(SP)+,R4 


; ; POP STACK INTO R4 


3866 


020256 


01 2603 








MOV 


{SP)+,R3 


; ; POP STACK INTO R3 


3867 


020260 


01 2602 








MOV 


(SP)+.R2 


; ; POP STACK INTO R2 


3868 


020262 


01 2601 








MOV 


{SP)+,R1 


; ;POP STACK INTO R1 


3869 


020264 


01 2600 








MOV 


(SP)+,RO 


: ; POP STACK INTO RO 


3870 
3871 


020266 


000207 








RTS 


PC 


; RETURN. 


3872 


















3873 










ROUTINE TO CLEAR ALL PARITY REGISTERS PRESENT 


3874 


















3875 


020270 






CLRPAR: 








3876 


020270 


01 0346 








MOV 


R3,-(SP) 


; ; PUSH R3 ON STACK 


3877 


020272 


01 6703 


1 61 332 






MOV 


.MPRX, R3 


;GET PARITY REGISTER TABLE POINTER. 


3878 


020276 


CC5713 




1S: 


TST 


(R3) 


;CHECK FOR THE TABLE TERMINATOR. 


3879 


020300 


00 1 402 








BEO 


2$ 


;BR IF DONE ALL PARITY REGISTERS. 


3880 


020302 


005033 








CLR 


@(R3)+ 


;CLEAR THE PARITY REGISTER. 


3831 


020304 


000774 








BR 


1$ 


;BR FOR MORE 


3882 


020306 






2S: 








3883 


020306 


01 2603 








MOV 


(SP)+,R3 


; ; POP STACK INTO R3 


3834 


02031 


000207 








RTS 


PC 


;RETURN. 




















3886 










SBTTL 


SUBROUTINES TO SET UP DATA FOR ERRDP PRINTOUT ROUTINE. 


3887 


















3888 










* THE 


SE ROUT 


INES ARE USED TO 


TRANSFER DATA TO COMMON TAG AREA (.SCMTAG) 


3889 










»■ FOR 


ERROR 


PRINTOUT BY .SERROR & .SERRTYP ROUTINES FROM **5YSMAC**. 


3890 


















3891 


020312 


01 0267 


160602 


SPRNT: 


MOV 


R2, SGDADR 


;SAVE THE ADDRESS UNDER TEST. 


3892 


020316 


005067 


160602 






CLR 


SGDDAT 


; SHOULD BE DATA IS "0". 


3893 


020322 


000430 








BR 


SPRNTB 




3894 


















3895 


020324 


01 4367 


16063C 


SPRNTQ: 


MOV 


-(R3), STMPO 


;GET THE PARITY REGISTER ADDRESS. 


3896 


020330 


01 3367 


160626 






MOV 


©(R3)+, STMPI 


;GET THE CONTENTS OF THE PARITY REG. 


3897 


020334 


000402 








BR 


SPRNTO 




3898 


















3899 


020336 


01 1367 


160616 


SPRNTP: 


MOV 


{R3), STMPO 


;GET THE PARITY REGISTER ADDRESS. 


3900 


020342 


01 0267 


160552 


SPRNTO: 


MOV 


R2, SGDADR 


;GET THE MEMORY ADDRESS BEING TESTED 
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ZOMCF 


PI 1 


4-FEB-78 


08: 19 


SUBROUTINES TO 


SET UP DATA FOR 


ERROR PRINTOUT ROUTINE. 


3901 
3902 


020346 


0C0414 






BR 


SPRNTA 


;BR TO COMMON SECTION. 


3903 


020350 


01 0267 


160544 


SPRNT1 : 


MOV 


R2, SGDADR 


;GET THE ME^^ORY ADDRESS BEING TESTED 


3904 


020354 


005367 


160540 




DEC 


SGDADR 


;ADJUST IT FOR PRINTOUT. 


3905 


020360 


000407 






BR 


SPRNTA 


;3R TO COMMON SECTION. 


3906 
















3907 


020362 


01 0367 


160572 


SPRNT3: 


MOV 


R3, STMPO 


;GET THE DATA IN R3 . 


390B 


020356 


01 0267 


160526 


SPRNT2: 


MOV 


R2, SGDADR 


;GET THE MEN'ORY ADDRESS BEING TESTED 


3909 


020372 


162767 


000002 


160520 


SUB 


p2, SGDADR 


lADJUST IT FOR PRINTOUT. 


3910 


020400 


01 0067 


160520 


SPRNTA: 


MOV 


RO, SGDDAT 


; GET WHAT THE DATA SHOULD BE 


391 1 


020404 


01 0167 


160516 


SPRNTB: 


MOV 


R1, S3DDAT 


;GET WHAT THE DATA WAS 


3912 


020410 


000207 






RTC 


PC 


;RETUkN to enter ERROR ROUTINES 


3913 
















3914 
















3915 








;* SUBROUTINE 


TO TYPE OUT A MAP OF 4K BANK. 


3916 








; * RO 


POINTS 


TO THE MAP UPON ENTERING THIS ROUTINE. 


3917 
















3918 


020412 


005710 




TYPMAP: 


T£ ," 


(RO) 


; CHECK IF ANY MEMORY IN MAP...LO 64K. 


3919 


02041 4 


001007 






BNE 


1$ 


;BR IF MEMORY IN MAP. 


3920 


020416 


005760 


000002 




TST 


2(R0) 


; . . .HI 64K. 


3921 


020422 


001004 






BNE 


1$ 


;BR IF P-^EMORY IN MAP. 


3922 


020424 


004567 


003062 




USR 


R5, SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


3923 


020430 


026266 






.WORD 


NOMEM 


; ADDRESS OF MESSAGE TO BE TYPED 


3924 














; "NO MEMORY FOUND. " 


3925 


020432 


000475 






BR 


6$ 


;EXIT 


3926 


020434 






1' : 








3927 


020434 


01 0146 






MOV 


R1 ,-( SP) 


; ; PUSH R1 ON STACK 


3928 


020436 


01 0246 






MuV 


R2,-(SP) 


; ; PUSH R2 ON STACK 


3929 


020440 


01 0346 






MOV 


R3,-(SP) 


; ; PUSH R3 On STACK 


3930 


020442 


01 0446 






MOV 


R4,-(SP) 


; ; PUSH R4 ON STACK 


3931 


020444 


0: 2701 


000001 




MOV 


#BITO, R1 


;SET UP BANK POINTER. ..LO 64K. 


3932 


020450 


005002 






CLR 


R2 


; . . .HI 64K. 


3933 


020452 


01 27C3 


1 77777 




MOV 


#-1 , R3 


;SET UP ADDRESS POINTER TO -1. 


3934 


020456 


01 0304 






MOV 


R3, R4 


;HI BITS OF ADDRESS AS WILL. 


3935 


020450 


0301 10 




2S: 


BIT 


R1. (Ru) 


;CHECK THE MAP FOR THIS BANK. 


3936 


020462 


001014 






BNE 


3$ 


;ER IF THIS BANK PRESENT. 


3937 


020464 


030260 


000002 




BIT 


R2, 2(R0) 


; CHECK HI 64 K MAP. 


3938 


020470 


00101 1 






BNE 


3$ 


;BR IF THIS BANK PRESENT. 




020472 


105703 






TSTB 


R3 


;CHECK FOR PREVIOUS PRINTOUT. 


3940 


020474 


001042 






BNE 


5$ 


; BR IF ALREADY TYPED "TO" 


3941 


020476 


162703 


000001 




SUB 


#1 , R3 


;3ACK UP TO LAST ADR OF PREVIOUS BANK 


3942 


020502 


005604 






SBC 


R4 


; . . .HI ADDRESS BITS. 


3943 


020504 


004567 


003002 




JSR 


R5, SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


3944 


020510 


02551 7 






.WORD 


TO 


; ADDRESS OF MESSAGE TO BE TYPED 


3945 


020512 


000410 






BR 


4$ 


;G0 TO TYPE THE ADDRESS. 


3946 


020514 


105703 




35: 


TSTB 


R3 


;CHECK FOR PREVIOUS TYPEOUT. 


3947 


020516 


00 1 431 






BEO 


5$ 


;BR IF ALREADY TYPE "FROM". 


3948 


020520 


062703 


000001 




ADD 


#1 , R3 


;POINT TO FIRST ADDRESS OF THIS BANK. 


3949 


020524 


005504 






ADC 


R4 


; . . .HI BITS OF ADDRESS. 


3950 


02C526 


004567 


002760 




USR 


R5. SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


3951 


020532 


025507 






.WORD 


FROM 


; ADDRESS OF MESSAGE TO BE TYPED 


3952 


020534 






4S: 








3953 


020534 


01 0346 






MOV 


R3.-(SP) 


; ; PUSH R3 ON STACK 


3954 


020536 


01 0446 






MOV 


R4,-(SP) 


; ; PUSH R4 ON STACK 


3955 


020540 


006303 






ASL 


R3 


;BIT 15 INTO C-BIT 


3956 


020542 


006104 






ROL 


R4 


;BIT 15 INTO R4 . 



CZOMCFO 0-124K ^•EMQRY EXERCISER, 
C2QMCF.P11 14-FEB-78 08:i9 



177776 
004104 



3957 


020544 


006003 


3958 


020546 


01 0446- 


3959 






3950 






3961 






3962 


020550 


1 3746 


3963 


020554 


004767 




020560 


003 


3965 


020561 


000 


3966 


020562 


01 0346 


3967 






3968 






3969 






3970 


020554 


01 3746 


3971 


020570 


004767 


3972 


020574 


005 


3973 


020575 


001 


3974 


020576 


01 2604 


3975 


020600 


01 2603 


3976 


020502 


062703 


3977 


020506 


005504 


3978 


02061 


006301 


3979 


0206 1 2 


0061 02 


3980 


02061 4 


1 03321 


3981 


02051 6 


01 2604 


3982 


020620 


01 2603 


3983 


020622 


01 2602 


3984 


020624 


01 2601 


3985 


020626 


000207 


3986 






3987 






3988 






3989 






3990 






3991 






3992 






3993 






3994 






3995 






3996 






3997 






3998 






3999 






4000 






4001 . 


020630 




4002 






4003 






4004 


020630 


01 3746 


4005 


020634 


004767 


4006 


020640 


01 2504 


4007 


020642 


01 0516 


4008 


020644 


032777 


4009 


020652 


001 1 17 


4010 






401 1 


020654 


000416 


4012 







177776 
004070 



177776 
001524 
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SUBROUTINES TQ SET UP DATA FOR ERROR PRINTOUT ROUTINE. 

ROR R3 ;RESTORE BUS 14-0. 

MOV R4,-(SP) ;;SAVE R4 FDR T^PEOUT 

; ;TYPE ADDRESS BITS 21-15 
5* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE STYPOS ROUTINE 
;* WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 

MOV @*PSW, -(SP) :PUT THE PRCCESSOR STATUS ON THE STACK 

JSR PC, STYPOS ;GQ TO THE SUBROUTINE 

.L.'TE 3 ; ITYPE 3 OIGIT(S) 

.BYTE ;;SUPPRESS LEADING ZEROS 

MOV R3,-(SP) ;:SAVE R3 FOR TYPEOUT 

;;TYPE ADDRESS BITS 14-0 
J* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE STYPOS ROUTINE 
;* WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 



MOV 


@#PSW, -(Si-) 


;PUT THE PROCESSOR STATUS ON THE STACK 


USR 


PC, ST.PQS 


;G0 TO THE SUBROUTINE 


.BYTE 


5 


; ;TYPE 5 DiaiT(S) 


.BYTE 


1 


; ;TYPE LEADING ZEROS 


MOV 


(SP)+,R4 


; ;POP STACK INTO R4 


MOV 


(SP)+,R3 


; ;POP STACK INTO R3 


ADD 


#20000, R3 


;UPDATE TO NEXT BANK. 


ADC 


R4 


; . . .HI ADDRESS BITS. 


ASL 


R1 


; SHIFT POINTER. . , LQ 64K. 


ROL 


R2 


; , . .HI 64K. 


BCC 


2$ 


;BR IF MORE BANKS. 


MOV 


(SP)+,R4 


; ; POP STACK INTO R4 


MOV 


{SP)+,R3 


; ;POP STACK INTO R3 


MOV 


(SP)+,R2 


; ; POP STACK INTO R2 


MOV 


(SP)+,R1 


; :POP STACK INTO R1 


i^TS 


PC 


IRETURN. 


SCOPE 


HANDLER ROUTINE 











*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
*AND LOAD THE TEST NUMBERi STSTNM ) INTO THE DISPLAY REG. ( DISPLAY<7 : 0> ) 
♦AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<1 5: 08> 
«THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 



*SW14=1 
*SW1 1=1 
*SW09*1 
*SW08=1 
*CALL 



LOOP ON TEST 
INHIBIT ITERATIbiMS 
LOOP ON ERROR 
LOOP ON TEST IN SWR<4:0> 

; ;SCOPE=IOT 



SSCOPE: 

;* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE SCKSWR ROUTINE 
;* WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SY5MAC**. 



040000 160256 1S: 



MOV 
USR 
MOV 
MOV 
BI"^ 
BNE 



©fPSW, -(BP) 
PC. SCKSWR 
(R5)+, R4 
R5. fSP) 
#3IT14,@5WR 
SOVER 



;ltiifffif/^lARl OF CODE FOR THE XOR TESTER^##** 



SXTSTR: BR 



S$ 



PUT THE PROCESSOR STATUS ON THE STACK 

GO TO THE SUBROUTINE 

SAVE MINIMUM BLOCK MASK NEXT TEST. 

PUT RETURN PC ONTO STACK, SIMULATE JSR PC. 

; L00= ON PRESENT TEST? 

;YES IF SW14=1 



IF RUNNING ON THE "XOR" TESTER CHANGE 
;THIS INSTRUCTION TO A "NOP" (NOP=240) 
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ZOMCF . 


PI 1 1 


4-FEB-78 


08: 19 




SCOPE 


HANDLER 


ROUTINE 




4013 


020656 


01 3746 


000004 






MOV 


(a/S'ERRVEC-CSP) 


;;SAVE THE CONTENTS OF THE ERROR VECTOR 


4014 


020662 


01 2737 


020702 


000004 




MOV 


#5$,@#ERRV£C 


; ;SET FOR TIMEOUT 


4015 


020670 


0G5737 


177060 






TST 


i'*177060 


; .-TIME OUT ON XOR? 


4016 


020674 


01 2637 


000004 






MOV 


(SP)+.i?#ERRVEC 


RESTORE THE ERROR VECTOR 


4017 


020700 


C0O466 








BR 


SSVLAD 


; ;G0 TO THE NEXT TEST 


4018 


020702 


022626 






5$: 


CMP 


(SP)+. (SP)+ 


JSCLEAR THE STACK AFTER A TIME OUT 


4019 


020704 


01 2637 


000004 






MOV 


(SP) + ,(a#ERRVEC 


;; RESTORE THE ERROR VECTOR 


4020 


02071 


000426 








BR 


7$ 


;;LOQP ON THE PRESENT TEST 


4021 


02071 2 








6$: END 


OF CODE FOR THE XOR 


TESTERA###^ 


4022 


020712 


032777 


000400 


160220 




BIT 


*BIT08,(SSWR 


; ; LOOP ON SPEC. TEST? 


4023 


C20720 


001407 








BEO 


2$ 


; ;8R IF NO 


4024 


020722 


01 7746 


160212 






MOV 


f>SWR,-(£P) 


;;SET DESIRED TEST NUM. FROM SWR 


4025 


020725 


04271,6 


000340 






BIC 


#SSWRMK. (5P) 


;;STRIP AWAY UNDESIRED BITS 


4026 


020732 


122667 


1601-. ; 






CMPB 


(SP)+,STSTNM 


; ;0K THE RIGHT TEST? 


4027 


020736 


001465 








BEO 


SOVER 


; ; BR IF YES 


4028 


020740 


105767 


160137 




2$: 


TSTB 


SERFLG 


;;HAS AN ERROR OCCURRED? 


4029 


020744 


001421 








BEO 


3$ 


; ;8R IF NO 


4030 


020746 


126767 


160143 


160127 




CMP8 


SERMAX. SERFLG 


;;MAX. ERRORS FOR THIS TEST OCCURRED? 


4031 


020754 


101015 








BHI 




; ; BR IF NO 


4032 


020756 


022777 


001000 


160154 




BIT 


#BIT09,©SWR 


: ; LOOP ON ERROR? 


4033 


020764 


001404 








BEO 


4$ 


; ; BR IF NO 


4034 


020766 


01 6767 


1601 16 


1601 12 


7$: 


MOV 


SLPERR.SLPADR 


;;SET LOOP ADDRESS TO LAST SCOPE 


4035 


020774 


0C0446 








BR 


SOVER 




4036 


020776 


105067 


160101 




4$: 


CLRB 


SERFLG 


; ;ZERO THE ERROR FLAG 


4037 


021002 


005067 


160162 






CLR 


STIMES 


; ;CLEAR THE NUMBER OF ITERATIONS TO MAKE 


4038 


021 006 


000415 








BR 


1$ 


;; ESCAPE TO THE NEXT TEST 


4039 


021010 


032777 


004000 


1601 22 


3$: 


BIT 


#BIT1 1 ,f>SWR 


; ; INHIBIT ITERATIONS? 


4040 


021 01 6 


00101 1 








BNE 


1$ 


; SBR IF YES 


4041 


021 020 


005767 


160165 






TST 


SPASS 


;;IF FIRST PASS OF PROGRAM 


4042 


021024 


001406 








BEO 


1$ 


INHIBIT ITERATIONS 


4043 


021026 


005267 


160052 






INC 


SICNT 


;; INCREMENT ITERATION COUNT 


4044 


021032 


026767 


160132 


160044 




CMP 


STIMES. SICNT 


;;CHE'?K THE NUMBER OF ITERATIONS MADE 


4045 


021 040 


002024 








BGE 


SOVER 


.•;BR IF MORE ITERATION REQUIRED 


4046 


021 042 


01 2767 


000001 


160034 


IS: 


MCV 


H\ .SICNT 


; '.REINITIALIZE THE ITERATION COUNTER 


4047 


021050 


0- 6767 


000552 


1601 12 




MOV 


SMXCNT , STIMES 


; :SET NUMBER OF ITERATIONS TO DO 


4048 


021 056 


105267 


160020 




SSVLAD 


; INCu 


STSTNM 


; ; COUNT TEST NUMBERS 


4049 


021062 


1 1 6767 


160014 


160120 




M0V8 


STSTNM.SiESTN 


;;SET TEST NUMBER IN APT MAILBOX 


4050 


0^1070 


01 1667 


160012 






MCV 


(SP) ,$LPADR 


;;SAVE SCOPE LOOP ADDRESS 


4051 


021 074 


01 1667 


160010 






MOV 


(SP) ,$LPERR 


; ;SAVE ERROP LOOP ADDRESS 


4052 


0211 00 


005067 


160066 






CLR 


SESCAPE 


;;CLEAR THE ESCAPE FROM ERROR ADDRESS 


4053 


0211 04 


1 1 2767 


000001 


160003 




MOVB 


#1 .SERMAX 


;;ONLY ALLOW 0NE(1) ERROR ON NEXT TEST 


4054 


021 1 12 


1 6777 


157764 


160022 


SOVER: 


MOV 


STSTNM, ©DISPLAY 


; ; DISPLAY TEST NUMBER 


4055 


021 120 


01 6716 


157762 






MOV 


SLPADR. (SP) 


; ; FUDGE RETURN ADDRESS 


4056 


021 1 24 


0205 5 






INSERT 


: CM? 


R5. (SP) 


;CHEqK FOR LOOP QH TEST. 


4057 


0211 26 


00 1402 








BEO 


1S 


;8R IF START NEXT TEST. 


4058 


02i 1 30 


000167 


000470 






UMP 


ENDINS 


;JMP IF LOOP ON LAST TEST. 


4059 


0211 34 


i 2767 


037777 


160444 


is: 


MOV 


#37777. BLKMSK 


;SET 8K BOUNORY MASK. 


4060 


021 1 42 


005767 


160044 






t:t 


SPASS 


;CHECK FOR PASS 0, 


4061 


021 1 46 


00 1 404 








BEO 


25 


!BR IF PASS 


4062 


021 1 50 


126727 


157726 


000021 




CMPB 


STSTNM, /^21 


;CHECK IF l\ SECTION 3. 


4063 


0211 56 


1 ?3002 








BHIS 


3$ 


;BR IF IN SECTION 3. 


4064 


021 160 


005267 


160422 




2S: 


A5R 


BLKMSK 


; RESET BOUNDRY TO 4K. 


4065 


021 1 54 


0^ 6767 


160372 


160372 


3S: 


MOV 


FSTADR, TMPFAD 


;G£T FIRST ADDRESS. 


4066 


021 1 72 


005767 


157402 






TST 


RELOCF 


;CHECK !F PPG RELOCATED. 


4067 


021 1 76 


00 1430 








BEO 


4$ 


; BR IF NOT RELOCATED. 


4068 


021200 


032777 


000040 


157732 




BIT 


«SVIQ5, ®SWR 


.•CHECK IF LOG 0-776 TO BE PROTECTED. 
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4069 


021 206 


001424 








BEO 


4$ 


;BR IF SW NOT SET. 


4070 


02 1 _ 1 


02 6727 


1 60350 


00 1 00 




CMP 


TMPFAO, #1000 


;CHECK IF NOT BEING TESTED. 


4071 


021216 


1 C 3020 








BHI S 


4$ 


;BR IF ALREADY PROTECTED. 


4072 


021220 


01 2767 


001 000 


1 60336 




MOV 


1*1000, TMPFAD 


;RESET FIRST ADDRESS. 


4073 


02 1 226 


052767 


000001 


1 60334 




BIS 


(S'BITO, FADMAP 


;SET FLAG IN FIRST BANK. 


4074 


021 234 


026727 


1 60334 


001 '^00 




CMP 


LSTADR, V1000 


;CHECK IF GONE PAST LAST ADR. 


4075 


021 242 


1 1 006 








BHI 


4$ , 


;BR IF ENOUGH MEMORY. 


4076 


021244 


004567 


002242 






JSR 


R5, SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


4077 


02 1 250 


026737 








. WORD 


NOMTST 


; ADDRESS OF MESSAGE TO BE TYPED 


4078 
















; "NO MEMORY TESTED" 


4079 


021 252 


01 6716 


1 60366 






MOV 


.TST32, (SP) 


; ADJUST RETURN ADR FOR ABORT. 


4080 


021 256 


000207 








RT r 


PC 


■.ABORT . 


4081 


021260 


01 6767 


1 6031 


1 603 ' 


4$: 


MOV 


LSTADR. TMPLAD 


;GET LAST ADDRESS. 


4082 


021266 


01 6767 


1 60242 


1 60234 




MOV 


SAVTST, TSTMAP 


;GET TEST MAP. LO 64K. 


4083 


021 274 


01 6767 


160236 


1 60230 




MOV 


SAVTST+2.TSTMAP+2 ;..,HI 64K. 


4084 


021 302 


046767 


1 57274 


1 60220 




BIC 


PRGMAP, TSTMAP 


•.DON'T TEST OVER THE PROGRAM. 


4085 


021310 


046767 


1 57270 


160214 




BIC 


PRGMAP+2,TSTMAP+2 


4086 


021 31 6 


005767 


1 57670 






T£~ 


SPASS 


;CHECK FOR FIRST PASS 


4087 


021 322 


001011 








BNE 


10$ 


;BR IF NOT FIRST PASS. 


4088 


021 324 


032767 


000003 


1601 76 




BIT 


#3, TSTMAP 


;CHECK IF FIRST TWO BANKS AVAILABLE. 


4089 


021 332 


001405 








BEO 


10$ 


;NOT TESTING FIRST 2 BANKS. 


4090 


021 334 


042767 


1 77774 


1 601 66 




BIC 


#177774, TSTMAP 


;CLR ALL BUT FIRST 2 BANKS. 


4091 


02 1 342 


005067 


1 601 64 






CLR 


TSTMAP+2 




4092 


021 346 


0057u4 






1 0$ : 


TST 


R4 


; CHECK FOR A MINIMUM BLOCK SIZE. 


4093 


021350 


00 1 503 








BEO 


20$ 


;BR IF NO MIN BLOCK SIZE. 


4094 


021 352 


030467 


1 60206 






BIT 


R4, TMPFAD 


;CHECK IF FIRST ADR ON BLOCK BOUNDRY. 


4095 


021 356 


00 1 4 1 6 








BEQ 


11$ 


; BR IF FIRST ADR ON BLOCK BOUNDRY. 


4096 


021 360 


050467 


1 50200 






BiS 


R4, TMPFAD 


;ADJUST FIRST ADR TO END OF BLOCK. 


4097 


021 364 


005267 


1 601 74 






INC 


TMPFAD 


; FIRST ADR TO FIRST ADR OF NEXT BLOCK. 


4098 


02 1 370 


032767 


01 7777 


1 601 66 




BIT 


#MASK4K. TMPFAD 


;CHECK IF FIRST ADR REACHED 4K BOUNDRY. 


4099 


021376 


0. 1 006 








BNE 


11$ 


; BR IF NOT ON 4K BOUNDRY. 


41 00 


02 1 400 


046767 


1 601 64 


1 601 22 




BIC 


FADMAP, TSTMAP 


;DON'T TEST FIRST BANK. 


4101 


021406 


046767 


1 60 1 60 


1 601 16 




BIC 


FADMAP+2 . TSTMAP+2 


41 02 


021414 


030467 


1 601 56 




11$: 


BIT 


R4, TMPLAD 


; CHECK IF LAST ADR ON BLOCK BOUNDRY. 


4 1 03 


021 420 


001414 








BEO 


12$ 


;BR IF ON BLOCK BOUNDRY. 


41 04 


02 1 422 


040467 


1 601 50 






BIC 


R4, TMPLAD 


; ADJUST LAST ADR DOWN TO NEXT BLOCK BOUNDRY 


4 1 05 


02 1 426 


032767 


01 7777 


1 601 42 




BIT 


(WMASK4K, TMPLAD 


•.CHECK IF ADJUSTED TO 4K BOUNDRY. 




0214 34 


n fi 1 n A K 

U U 1 U V D 










12$ 


;BR IF NOT ON 4K BOUNDRY. 


4107 


021436 


046767 


160140 


160C64 




BIC 


LADMAP, TSTMAP 


;SKIP TESTING LAST BANK. 


4108 


021444 


046767 


160134 


160060 




BIC 


LADMAP+2, TSTMAP+2 


4109 


021452 


036767 


1601 12 


^50122 


12$: 


BIT 


FADMAP, LADMAP 


;CHECK IF FIRST AND LAST IN SAME BANK. 


4110 


021460 


001004 








BNE 


13$ 


;BR IF IN SAME BANK. 


4111 


021 462 


036767 


160104 


1601 14 




BIT 


FADMAP+2, LADMAP+2 ;... UPPER 64K. 


4112 


021470 


001404 








BEO 


14S 


;BR IF FIRST AND LAST NOT SAME BANK. 


4113 


021472 


026767 


160100 


160064 


13$: 


CMP 


TMPLAD. TMPFAD 


; CHECK IF ANY MEMORY LEFT. 


41 14 


021500 


101406 








BLOS 


15$ 


■.BR IF NO MEMORY TO TEST. 


4115 


021502 


005767 


160022 




14$: 


TST 


TSTMAP 


; CHECK IF ANY BANKS LEFT TO TEST!! 


4116 


021506 


001017 








BNE 


16$ 


;BR IF TEST MAP NOT EMPTY. 


41 17 


021510 


005767 


160016 






TST 


TSTMAP+2 


; CHECK FOR ANY BANKS. 


4118 


021514 


001014 








BNE 


16$ 


;BR IF TEST MAP NOT EMPTY, 


41 19 


021516 








15$: 








4120 


021516 


004567 


001770 






JSR 


R5, SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


4121 


021522 


026763 








.WORD 


SKPMES 


; ADDRESS OF MESSAGE TO BE TYPED 


4122 
















; "SKIPPING TEST *" 


4123 


021524 


005046 








CLR 


-(SP) 


; CLEAR THE WORD ON THE STACK. 


4124 


021526 


1 1 6716 


157350 






MOVB 


$TSTNM. (SP) 


;PUT THE DATA ON THE STACK. 
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157326 
160000 



4125 








4126 








4127 


021532 


01 3746 


177776 


4128 


021535 


0C47'~'' 


003122 


4129 


021 542 


003 




4130 


021543 


001 




4131 


021544 


0C0427 




4132 


021546 


062716 


000004 


4133 


021552 


062767 


000004 


4134 


021560 


01 2767 


017777 


4135 


021565 


0^ 6705 


157772 


4136 


021572 


040567 


157770 


4137 


021576 


006305 




4138 


021600 


001374 




4139 


021602 


01 2767 


017777 


4140 


021610 


01 6705 


157762 


4141 


021614 


040567 


157760 


4142 


021620 


0C6305 




4143 


C21622 


CC1374 




4144 


021624 


0C0207 




4145 


021626 


000004 




4146 








4147 








4148 


021630 


01 3746 


177776 


4149 


021634 


0C4767 


000524 


4150 








4 151 








4152 








4153 








4154 








4155 








4156 








4157 








4158 








4159 








4160 








4161 








4162 








4163 








4164 


021640 






4165 








4166 








4167 


021640 


01 3746 


177776 


4168 


021 644 


004767 


000514 


4169 


021650 


062716 


000002 


4170 


021654 


105267 


157223 


4171 


021 550 


001 775 




4172 


021 652 


01 6777 


1 57214 


4173 


021 670 


032777 


002000 


4174 


021676 


OC 1403 




41 75 


021 700 


004567 


001606 


4176 


021 704 


001174 




4177 


021 706 


005267 


157200 


41 78 


021712 


01 1667 


157200 


4179 


021 716 


162767 


000002 


4180 


021 724 


1 1 7767 


157166 



157252 
157242 



1571 72 
1571S2 





MOV 


©If PSW, 


-(SP) 


PUT THE PROCESSOR STATUS ON THE STACK 




JSR 


PC, 


STYPOS 


GO TO THE SUBROUTINE 




.BYTE 


3 




TYPE 3 DIGITS. 




.BYTE 


1 




TYPE LEADING ZEROS. 




BR 


ENDINS 




RETURN TO SKIP TEST. 


16$: 


An 


«r4. 


(SP) 


SKIP THE SKIP ON RETURN. 




ADD 


*4, 


s'lpadr 


ADJUST THE LOOP ADR PAST THE SKIP. 


20$: 


MOV 


#MASK4K, FADMSK 


GET 4K MASK. 




MOV 


TMPFAD. 


R5 


GET FIRST AOR. 


21$: 


BIC 


R5, 


FADMSK 


CLR MASK ABOVE LOWEST BIT OF FIRST ADR. 




ASL 


R5 




MOVE LOWEST BIT UP ONE. 




BNE 


21$ 




LOOP UNTIL OVERFLOW. 




MOV 


#MASK4K. LA^'-MSK 


SET MASK BITS 




MOV 


TMPLAD, 


R5 


GET LAST ADR. 


22$: 


BIC 


R5, 


LADMSK 


CLR ALL MASK BITS ABOVE LOWEST BIT IN LAST ADR 




ASL 


R5 




MOVE LOWEST BIT OF LAST ADR UP ONE. 




BNE 


22$ 




LOOP UNTIL OVERFLOW. 


ENDINS: 


RTS 


PC 




EXIT SCOPE ROUTINE BACK TO TEST. 


SMXCNT: 


4 






:MAX. NUMBER OF ITERATIONS 



;* THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE SCKSWR ROUTINE 
;* WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 

MOV @#PSW, -{SP) ;PUT THE PROCESSOR STATUS ON THE STACK 

JSR PC, SCKSWR ;G0 TO THE SUBROUTINE 

.SBTTL ERROR HANDLER ROUTINE 



•THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
-SAVE THE ERf R ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
*AND GO TO SERRTYP ON ERROR 

*TH£ SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

*SW15=1 HALT ON ERROR 

>'SW13=1 INHIBIT ERROR TYPEOUTS 

-SW10=1 BELL ON ERROR 

*SW09=1 LOOP ON ERROR 

*CALL 

* ERROR N ;;ERROR:iEMT AND N = ERROR ITEM NUMBER 

SERROR: 

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE SCKSWR ROUTINE 
;* WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 

;PUT THE PROCESSOR STATUS ON THE STACK 
;G0 TO THE SUBROUTINE 
;ADJUST POINTER PAST CODE WORD. 
;SET THE Er<ROR FLAG 
;0ON'T LET THE FLAG GO TO ZERO 
IDISPLAY TEST NUMBER AND ERROR FLAG 
:BELL ON EPROR? 
;N0 - SKIP 
;G0 PRINT CUT THE FOLLOWING MESSAGE. 
; ADDRESS OF MESSAGE TO BE TYPED 
1$: INC SERTTL ;;COUNT THE NUMBER OF ERRORS 

;;GET ADDRESS OF ERROR INSTRUCTION 

;:STRIP AND SAVE THE ERROR ITEM CODE 



MOV 


©iffPSW. -(SP) 


JSR 


PC, SCKSWR 


ADD 


^2. (SP) 


INCB 


SERFLG 


BEO 


7S 


MOV 


$TSTNM.€>D!SPLAY 


BIT 


#BIT1O.0SWR 


BEO 


1$ 


JSR 


R5. SPRINT 


.WORD 


SBELL 


INC 


SERTTL 


MOV 


(SP) .SERRPC 


SUB 


#2,$ERRPC 


MOVw 


©SERRPC, SITEMB 
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4181 


021 732 


032777 


020000 


157200 




BIT 


/I'BIT13,@SWR 


; ; SKIP TYPEOUT IF SET 


4182 


021 740 


0C1005 








BNE 


20$ 


; ;SKIP TYPEOUTS 


4183 


021742 


0C4767 


0001 16 






JSR 


PC, SERRTYP 


;:G0 TO USEP ERROR ROUTINE 


4184 


021 746 


0C4567 


001540 






JSR 


R5, SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


4185 


021 752 


001201 








• WORD 


SCRLF 


; ADDRESS OF MESSAGE TO BE TYPED 


4186 


021754 








20$: 








4187 


021754 


122767 


000001 


157242 




CMPB 


(^APTENV.SENV 


; ; RUNNING IN APT MODE 


4188 


021 762 


001007 








BNE 


2$ 


:;N0.SKIP APT ERROR REPORT 


4189 


021 764 


1 1 6767 


157124 


000004 




M0V8 


$ITEMB,21S 


;;SET ITEM NUMBER AS ERROR NUMBER 


4190 


021772 


0C4767 


002044 






JSR 


PC,$ATY4 


;; REPORT FATAL ERROR TO APT 


4191 


021 776 


000 






21$: 


.BYTE 







4192 


021777 


000 








.BYTE 







4193 


022000 


000777 






22$: 


BR 


22S 


; ;APT ERROR LOOP 


41 94 


022002 


0C5777 


1571^2 




2$: 


TST 


®SWR 


; ;HALT ON ERROR 


4195 


022006 


100005 








BPL 


3$ 


i ;SKIP IF CONTINUE 


4196 


022010 


000000 








HALT 




: ;HALT ON EPROR! 


4197 










!* THE 


NEXT 


TWO I NSTRUC TICK'S 


PROVIDE AN INTERFACE TO THE SCKSWR ROUTINg 


4198 










;* WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**, 


4199 


022012 


01 3746 


177776 






MOV 


@#PSW, -(SP) 


;PUT THE PROCESSOR STATUS ON THE STACK 


4200 


022016 


004767 


000342 






JSR 


PC, 5CKSWR 


;G0 TO THE SUBROU'-INE 


4201 


022022 


032777 


001000 


1571 10 


3S! 


BIT 


f BIT09,®SWR 


;;LOOP ON ERROR SWITCH SET? 


4202 


022030 


001402 








BEO 


4$ 


; !BR IF NO 


4203 


022032 


01 6716 


157052 






MOV 


SLPERR. {Sl3) 


FUDGE RETURN FpR LOOPING 


4204 


022036 


005767 


157130 




4$: 


TST 


SESCAPE 


CHECK FOR AN ESCAPE ADDRESS 


4205 


022042 


001402 








BEO 


5$ 


; ; BR IF NONE 


4206 


022044 


01 6716 


157122 






MOV 


SESCAPE. (SP) 


FUDGE RETURN ADDRESS FOR ESCAPE 


4207 


022050 








5$: 








4208 


022050 


022737 


014222 


000042 




CMP 


*i$ENDAD,@>#42 


;:ACT-11 AUTO-ACCEPT? 


4209 


022056 


001001 








BNE 


6$ 


; ; BRANCH IF NO 


4210 


022060 


000000 








HALT 




; ;YES 


421 1 


022062 








6$: 








4212 


022062 


000207 








RTS 


PC 




4213 
















4214 


















4215 










.SBTTU 


ERROR 


MESSAGE TYPEOUT 


ROUTINE 


4216 


















4217 










;«THIS 


ROUTINE USES THE 'ITEM 


CONTROL BYTE" (SITEMB) TO DETERMINE WHICH 


4218 










;»'ERROR 


IS TO 


3E REPORTED. IT 


THEN OBTAINS. FROM THE "ERROR TABLE" (SERRTB) , 


4219 










;«AND REPORTS 


THE APPROPRIATE 


INFORMATION CONCERNING THE ERROR. 


4220 


















4221 


022064 








SERRTYP 








4222 


022064 


004567 


001422 






JSR 


R5, SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


4223 


022070 


001201 








.WORD 


SCRLF 


; ADDRESS OF MESSAGE TO BE TYPED 


4224 


022072 


01 00 -3 








MOV 


R0,-(SP) 


:SAVE RO 


4225 


022074 


005000 








CLR 


RO 


; PICKUP THE ITEM INDEX 


4226 


022076 


155700 


157012 






BISB 


$ITEMB,RO 




4227 


022102 


001007 








BNE 


1$ 


;IF ITEM NUMBER IS ZERO, JUST 


4228 
















;TYPE THE PC OF THE EIROR 


4229 


022104 


01 6746 


157006 






MOV 


$ERRPC,-(SP) 


;;SAVE SERRPC FOR TYPEOUT 


4230 
















: ; ERROR ADDRESS 


4231 










; * "HE 


NEXT TWO INSTRUCTIONS 


PROVIDE AN INTERFACE TO THE STYPQC ROUTINE 


4232 










;* WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY *«SYSMAC**. 


4233 


0221 10 


01 3746 


177776 






MOV 


@#PSW, -(SP) 


;PUT THE PROCESSOR STATUS ON THE STACK 


4234 


0221 14 


004767 


002570 






JSR 


PC, STY.OC 


5GO TO THE SUBROUTINE 


4235 


022120 


000513 








BR 


10$ 


;GET OUT 


4236 


022122 


01 6767 


156770 


157364 


1$: 


MOV 


SERRPC, SVERPC 


. ;SET UP VIRTUAL PC FOR TYPEOUT. 
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4237 


C221 30 


166767 


156444 


4238 


0221 36 


005300 




4239 


022140 


006300 




4240 


022142 


0063CD 




4241 


022144 


0C6300 




4242 


022146 


056700 


157466 


4243 


022152 


01 2067 


000006 


4244 


022156 


001406 




4245 


022160 


004567 


001326 


4246 


022164 


000000 




4247 


022166 


0-:4567 


001320 


4248 


0221 72 


001201 




4249 


0221 74 


01 2067 


000006 


4250 


022200 


001406 




4251 


022202 


004567 


001304 


4252 


022206 


000000 




4253 


022210 


004567 


001276 


4254 


022214 


001201 




4255 


022216 


01 0146 




4256 


022220 


01 2001 




4257 


022222 


001451 




4258 


022224 


066701 


156^50 


4259 


022230 


01 2000 




4260 


022232 


066700 


156342 


4261 


022236 


105720 




4262 


022240 


001006 




4263 


022242 


01 3146 




4264 








4265 








4266 


022244 


01 3746 


177776 


4267 


022250 


004767 


002434 


4268 


022254 


000426 




4259 


022256 


1004C6 




4270 


022260 


01 3146 




4271 








4272 








4273 


022262 


01 3746 


177776 


4274 


022266 


004767 


002140 


4275 


022272 


000417 




4276 


022274 


122760 


177777 


4277 


022302 


001004 




4278 


022304 


01 3146 




4279 


022306 


004767 


002640 


4280 


022312 


000407 




4281 . 


022314 






4282 


022314 


005046 




4283 


022316 


113116 




4284 








4285 








4286 


022320 


01 3746 


177776 


4287 


022324 


004767 


002334 


4288 


022330 


003 




4289 


022331 


001 




4290 


022332 


00571 1 




4291 


022334 


001404 




4292 


022336 


004567 


001 150 



SUB 


RELOCF, SVERPC 


;MAKE VIRTUAL IF NOT ALREADY. 


DEC 


RO 


JADJUST THE INDEX SO THAT IT WILL 


ASL 


RO 


: WORK FOR THE ERROR TAB1,E 


ASL 


RO 




ASL 


RO 




ADO 


.ERRTB, RO 


;FORM TABLE POINTER 


MOV 


(R0)+,2$ 


; PICKUP "ERROR MESSAQE" POINTER 


bl; 


3$ 


;SKIP TYPEOUT IF NO FJINTER 


JSR 


R5. SPRINT 


;Q0 PRINT OUT THE FOLLOWING MESSAGE. 


.WORD 





;'iERROR MESSAGE" POINTER GOES HERg 


JSR 


R5, SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE- 


.WORD 


SCRLF 


; ADDRESS OF MESSAGE TO BE TYPED 


MOV 


{R0)+,4$ 


: PICKUP "DATA HEADER" POINTER 


BEO 


5$ 


;SKIP TYPEOUT IF 


JSR 


R5, $P,:INT 


:G0 PRINT OUT THE FOLLOWING MESSAGE. 


.WORD 





;»DATA HEADER" POINTER GOES HERE 


JSR 


R5, SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


.WORD 


SCRLF 


; ADDRESS OF MESSAGE TO BE TYPED 


MOV 


R1 ,-{SP) 


;SAVE R1 


MOV 


(R0)+,R1 


; PICKUP "DATA TABLE" POINTER 


BEO 


9$ 


;BR IF NO DATA TO BE TYPED 


ADD 


RELOCF, R1 


;ADJUST POINTER 


MOV 


(RO)+.RO 


; PICKUP "DATA FORMAT" POINTER 


ADD 


RELOCF, RO 


;ADJUST POINTER. 


TSTB 


(R0) + 


; CHECK THE FORMAT 


BNE 


7$ 


:BR IF NOT 16-BIT OCTAL 


MOV 


©(R1 )+,-(SP) 


;:SAVE (5>{R1)+ FOR TYPEOUT 



THE NEXT •.10 INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOC ROUTINE 
WIHTOUT USING A "TRAP" INSTRUCTION A§ CALLED FOR BY **SYSMAC* 



MOV 
JSR 
BR 



€>#PSW, 
PC, 
8$ 



-(SP) 
STYPOC 



;PUT THE PROCESSOR STATUS ON THE STACK 
:G0 TO THE SUBROUTINE 



BMI 17$ ; BRANCH IF NOT DECIMAL 

MOV ®(R1)+,-(SP) ;;SAVE ■a(R1)+ FOR TYPEOUT 

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TQ THE STYPDS ROUTINE 
WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 



177777 17$: 



MOV 


PAiPSW, 


-(SP) 


PUT THE PROCESSOR STATUS ON THE STACK 


JSR 


PC, 


STYPDS 


GO TO THE SUBROUTINE 


BR 


8$ 




SKIP 


CMPB 


#-1 , 


-KRO) 


CHECK FOR 18-BIT :^DDRESS FORMAT. 


BNE 


18$ 




BR IF NOT 18-BIT ADDRESS FORMAT. 


MOV 


@(R1 )+. 


-(SP) 


PUT THE DATA ON THE STACK. 


JSR 


PC, 


5TYPAD 


DETERMINE THE PHYSICAL ADDRESS AND TYPE 


BR 


as 




SKIP 


CLR 


-(SP) 




CLEAR THE V\/ORD ON THE STACK. 


MOVB 


@(R1 )+, 


(SP) 


PUT THE DATA ON THE STACK, 



THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE STYPOS ROUTINE 
WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**, 



MOV 

JSR 

.B^TZ 

• BYTE 

TST 

BEO 

JSR 



f#PSW, 
PC, 



(R1 ) 
9$ 



-(SP) ;PUT THE PROCESSOR STATUS ON THE STACK 
STYPOS ;G0 TO THE SUBROUTINE 
;TYPE 3 DIGITS. 
;TYPE LEADING ZEROS. 

;IS THERE ANOTHER NUMBER? 
;BR IF NO 

"SPRINT ;G0 PRINT OUT THE FOLLOWING MESSAGE. 



CZOMCFO 
CZQMCF . 

•^293 
4294 
4295 
4 296 
4297 
42S3 
4299 
4300 
4301 
4302 
4303 
4304 
4305 
4306 
4307 
430a 
4309 
4310 
431 1 
4312 
4313 
4314 
4315 
4316 
4317 
4318 
4319 
4320 
4 321 
4322 
4323 
4324 
4325 
4326 
4327 
4328 
4329 
4330 
4331 
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022342 
C22344 



C22330 
022352 



022360 
022362 



022362 
CC0734 

01 2601 
01 2600 
004567 
00 1 201 
000207 
0C001 1 



BR 



6S 



9$: 
ICS 



MOV 
MOV 
JSR 
.WORD 
RTS 

1$: .ASCIZ 
.EVEN 

SBTTL TTY INPUT ROUTINE 



.ENAEL LSB 



(SP)+,R1 
(SP)+,RO 
R5. $ 
SCR^F 
PC 

/ / 



: ADDRESS OF MESSAGE TO BE TYPED 
; LOOP 

;RESTORE R1 

;RESTCRE RO 
;GQ PRINT CUT THE FOLLOWING MESSAGE. 
•.ADDRESS OF MESSAGE TO BE TYPED 

; RETURN 
: TAB CHARACTER. 



♦SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

*R0UTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 

♦ SERVICE TKi TEST FOR CHANGE lU SCFTVMARE SWITCH REGISTER TRAP CALL 
♦WHEN OPERATING IN TTY FLAG MODE. 



022364 


022767 


000176 


156546 


SCKSWR: 


CMP 


/fSWREG, SWR 


;;IS THE SOFT-SWR SELECTED? 


022372 


OC 1 1 04 








BNE 


15$ 


; ; BRANCH IF NO 


022374 


1 C5777 


156544 






TSTB 


(PSTKS 


; iCHAR THERE? 


022400 


100101 








BPL 


15S 


IF NO. DON'T WAIT AROUND 


022402 


1 1 7746 


156540 






MOVB 


@STKB,-{SP) 


; ; SAVE THE CHAR 


022406 


04271 6 


177600 






BIC 


f "C177 , (SP) 


; ;STRI?-OFF THE ASCII 


0224 1 2 


022725 


000007 






CMP 


*7,(SP)-r 


; ; IS IT A CONTROL G? 


022416 


001072 








BNE 


15S 


; ;N0, RETURN TO USER 


022420 


126727 


156510 


000001 




CMPB 


SAUTOB.^I 


;;ARE WE RUNNING IN AUTO-MODE? 


022426 


001466 








BEO 


15$ 


; ; BRANCH I F YES 


022430 


004567 


001056 






JSR 


R5, SPRINT 


;G0 P-^INT OUT THE FOLLOWING MESSAGE. 


022434 


02531 1 








.WORD 


SCNTLG 


; ADDRESS OF MESSAGE TO BE TYPED 


02243S 








SGTSWR: 








022436 


004567 


001050 






JSR 


R5, SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


C22442 


023316 








.wo.;d 


SMSWR 


; ADDRESS OF MESSAGE TO BE TYPED 


022444 


01 6746 


155526 






MDV 


SWREG.-(SP} 


;:SAV£ SWREG FOR TYPEOUT 



THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE STYPOC ROUTINE 
WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 



4332 


022450 


01 3745 


177776 




MOV 


(3#PSW, -(SP) 


;PUT THE PROCESSOR STATUS ON THE STACK 


4333 


022454 


004767 


002230 




JSR 


PC. STYPOC 


;G0 TO THE SUBROUTINE 


4334 


022450 


004567 


001 026 




JSR 


R5, SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


4335 


022464 


023327 






.WORD 


SMNEW 


;ADDRESS OF MESSAGE TO BE TYPED 


4336 


052466 


0050 -3 




19$: 


CLR 


-{SP) 


; -.CLEAR COUNTER 


4337 


022470 


005045 






CLR 


-(SP) 


; : THE NEW SWR 


4338 


022472 


105777 


156446 


7S; 


TSTB 


@$TKS 


; ;CHAR THERE? 


4339 


022476 


100375 






BPL 


7$ 


; ; IF NOT TRY AGAIN 


■3340 
















4341 


022500 


1 1 7746 


156442 




MOVB 


@$TKB,-{SP) 


; ; PICK UP CHAR 


4342 


022504 


042716 


177600 




BIC 


#"C177, (SP) 


; ;MAKE IT 7-BIT ASCII 


4343 
















4344 
















4345 
















4346 


022510 


021627 


000025 


9S: 


CMP 


(SP) ,#25 


; ; IS IT A CCNTROL-U? 


4347 


022514 


001006 






BNE 


10S 


; ; BRANCH IF NOT 


4343 


022516 


004567 


000770 




JSR 


R5, SPRINT- 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 



CZOMCFO 
C20MCF. 
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4349 


022522 


023304 










.WORD 


SCNTLU ; 


ADDRESS OF MESSAGE TO BE TYPED 


4350 


022524 


062706 


000006 




20$: 


ADD 


#6,SP ; 


; IGNORE PREVIOUS INPUT 


4351 


022530 


000756 










BR 


19S ; 


ILET'S TRY IT AGAIN 


4352 




















4353 




















4354 


022532 


C2 1627 


000015 




10$: 


CMP 


{SP),#ir ; 


; IS IT A <CR>? 


4355 


022536 


0C1023 










BNE 


16$ 


; BRANCH IF NO 


4356 


022540 


005766 


000004 








TST 


4(SP) ; 


;YES. IS IT THE FIRST CHAR? 


4357 


022544 


001403 










BEO 


11$ ; 


;BRANCri IF YES 


4358 


C22546 


01 6677 


0C0002 


156364 






MOV 


2(SP).@SWR 


•.SAVE KEW £WR 


4359 


022554 


062706 


OOOOOS 




11$: 


ADD 


#6,SP ; 


ICLEAR UP STACK 


43S0 


C22560 








14$: 








4361 


C22560 


004567 


000726 








JSR 


R5, SPRINT ; 


GO PRINT OUT THE FOLLOWING MESSAGE 


4362 


022564 


0C1 201 










.WORD 


SCRLF ; 


ADDRESS OF MESSAGE TO BE TYPED 


4363 


022566 


126727 


156343 


000001 






CMP PI 


SINTAG.^I 


; RE-ENABLE TTY KBD INTERRUPTS"? 


4364 


022574 


00 1003 










BNE 


15$ ; 


; BRANCH IF NOT 


4365 


022576 


01 2777 


000100 


156340 






MOV 


#100,®$TKS ; 


; RE-ENABLE TTY KBD INTERRUPT? 


4366 


022604 


0CO002 






15$: 


rt: 




;R£TURN 


4367 


022606 


004767 


001 142 




16$: 


JSR 


PC,$TYPEC ; 


;ECHO CHAR 


4368 


022612 


021627 


000060 








CMP 


(SP),M60 ; 


;CHAR < 0? 


4369 


022616 


002420 










BLT 


18$ ; 


IBRANCH IF YES 


4370 


022520 


021627 


000067 








CMP 


(SP),#57 ; 


;CHAR > 7? 


4371 


C22£24 


C03015 










BGT 


18$ ; 


; BRANCH IF YES 


4372 


022526 


0427.:6 


000060 








BIC 


1^60, (SP) + 


;STR1P-0FF ASCII 


4373 


C22632 


C0576S 


000002 








TST 


2(SP) : 


; IS THIS THE FIRST CHAR 


4374 


022635 


00 1403 










BEO 


17$ ; 


; BRANCH IF YES 


4375 


022640 


CO 63 16 










ASL 


(SP) 


•,N0. SHIFT PRESENT 


4376 


022542 


006316 










AiL. 


(SP) ; 


; CHAR OVER TO MAKE 


4377 


022344 


0C6316 










ASL 


(SP) ; 


: ROOM FOR NEW ONE. 


4378 


022646 


005266 


000002 




17$; 


INC 


2(SP) ; 


:KEEP COUNT OF CHAR 


4379 


022652 


C ■ 6616 


177776 








BIS 


-2{SP),(SP) ; 


;SET IN NEW CHAR 


4380 


022656 


000705 










BR 


7$ ; 


;GET THE NEXT ONE 


4391 


C22560 








18$: 








4382 


022660 


004567 


000626 








JSR 


R5, $PR1NT ; 


GO PRINT OUT THE FOLLOWING MESSAGE 


4383 


022664 


001200 










.WORD 


$OUES ; 


ADDRESS OF MESSAGE TO BE TYPED 


4384 


022666 


000715 










BR 


20$ ; 


;SIMULATE CONTROL-U 


4 385 












DSABL 


LSB 






4386 




















4387 




















4388 




















4389 












*THIS 


ROUTINE 


WILL INPUT A SINGLE CHARACTER FROM THE TTY 


4390 












*CALL: 








4391 














RDCHR 




; INPUT A SINGLE CHARACTER FROM THE 


43S2 














RETURN 


HERE • 


•.CHARACTER IS ON THE STACK 


4393 


















;WITH PARITY BIT STRIPPED OFF 


4394 




















4395 




















4 396 


022670 


O: 1646 






SRDCHR: 


MOV 


(SP).-(SP) 


;PUSH DOWN THE PC 


4397 


022672 


01 6666 


00C004 


000002 






MOV 


4(SP),2(SP) ; 


;SAVE THE PS 


4393 


022700 


1 C5777 


156240 




1$: 


TSTB 


•aSTKS ; 


;WAIT FCR 


4399 


022704 


1 037 5 










BPL 


1$ ; 


;A CHARACTER 


4400 




1 1 7766 


156234 


0O0C04 






MCVB 


iS$TK3.4(SP) ; 


;READ THE TTY 


4401 


022714 


04 2766 


1 77600 


C00C04 






BIC 


#*C<177>.4(SP) : 


;GET RID OF JUNK IF ANY 


4402 




026627 


00001^4 


000023 






c^'p 


4(SP),#23 : 


: IS IT A CONTROL-S? 


4403 


022730 


00 1013 










BNE 


3$ 


; BRANCH IF NO 


4404 


022732 


105777 


156206 




2S: 


TSTB 


(a$TKS ; 


;WAIT FOR A CHARACTER 



C.ZOVCFO 0-l2aK f.'Ef.CRY EXERCISER, 1 6K VEP WA"Yl! 30A(1052) 20-FEB-7B 07:5S PAGE 90 

CZOYiCF.PII l-^-FE^B-'/e 08: 19 TTY INPUT ROUTINE 



SEO 0172 



AA05 


C 2 2 7 3 5 


1 C0375 










EPL 


2S 


; ; LOOP UNTIL ITS THERE 


44C6 


22 74 


1 1 7743 


1 56202 








MOV 3 


(?>STKB,-( SP) 


; ; GET CHARACTER 


4407 


02 274 4 


042716 


1 77600 








BIG 


;i'"C177, (SP) 


; ;MAKE IT 7-BIT ASCII 


4408 


032 7 50 


0226'7 


000021 








CMP 


(SP) ^,#21 


; ; IS IT A CCNTROL-Q? 


4409 


022 7 54 


OC 1366 










BNE 


2$ 


: ; IF NOT DISCARD IT 


4 410 


C22 756 


0:0750 










ER 


1$ 


;;yES. RES'Jf.-E 


441 1 


022760 


026627 


000004 


0001 40 


3s.: 




CM? 


4(SP) ,#140 


; ; IS IT UPPER CASE? 


4412 


022765 


00 2407 










Bl ' 


4$ 


; ; BRANCH IF YES 


441 3 


022770 


025527 


000004 


0001 75 






CMP 


4(SP) ,*175 


; ; IS IT A SPECIAL CHAR? 


4414 


022776 


0C3003 










EGT 


4$ 


; ; BRANCH IF YES 


4415 


023000 


0-^2766 


000040 


000004 






BIC 


#40,4(SP) 


; ;MAKE IT UPPER CASE 


4416 


023006 


000002 






4S: 




RTI 




; ;GC BACK TO USES 


441 7 




















441 8 










; *THIS 


ROUTINE 


WILL INPUT A STRING FROM THE TTY 


4419 










; *CALL: 








4420 














RDLIN 




;; INPUT A STRING FROM THE TTY 


4421 














RETURN 


HERE 


;;ADDR£5S OF FIRST CHARACTER WILL BE ON THE 


4422 


















;;TERMINATOR WILL BE A BYTE OF ALL O'S 


4423 




















4424 


C23010 


01 0345 






SRDLIN: 


MOV 


R3,-(SP) 


; ;SAVE R3 


4425 


02301 2 


0C5046 










CLR 


-(SP) 


; :CLEAR THE RUBOUT KEY 


4426 


023014 


01 2703 


023:^74 




IS: 




MOV 


A'STTYIN.R3 


; ;GET ACDRESS 


4427 


023020 


022703 


023304 




2S: 




CMP 


/(STTYIN + B. , R3 


; ; BUFFER FULL? 


4428 


023024 


101467 










BLOS 


4S 


; ;5R IF YES 


4429 












THE 


NEXT TWO INSTRUCTIONS 


PROVIDE AN INTERFACE TO THE SRDCHR ROUTINE 


4430 












WIHTOUT US 


NG A "TRAP" INSTRUCTION A3 CALLED FOR BY **5YSMAC**. 


4431 


023026 


01 3746 


1 77776 








MOV 


§irirPSW, -(SP) 


;PUT THE PROCESSOR STATUS ON THE STACK 


4432 


023032 


004767 


1 77632 








dSR 


PC, SRDCHR 


;G0 TO THE SUBROUTINE 


44 33 


023036 


1 1 251 3 










MCVB 


(SP)+, (R3) 


; ;GET CHARACTER 


4 4 34 


023040 


122713 


000177 




IDS 




CMPB 


ff177. (R3) 


; ; IS IT A RUBOUT 


4435 


C23044 


or, 1 024 










BNE 


5S 


; ; BR IF NO 


4436 


023045 


00571 6 










TST 


(SP) 


;;IS THIS THE FIRST RUBOUT? 


4437 


023050 


001010 










BNE 


6S 


; ; BR IF NO 


4438 


023052 


1 •■ 2767 


0001 r ] 


000212 






MOVE 


^ '\,9S 


; : TYPE A BACK SLASH 


4439 


023060 


004567 


000426 








JSR 


R5, SPRINT 


;GG PRINT OUT THE FOLLOWING MESSAGE. 


4440 


023C64 


023272 










.WORD 


9$ 


; ADDRESS OF MESSAGE TO BE TYPED 
















MCV 


f^-1 .(SP) 


; ;SET THE RUBOUT KEY 


4442 


023072 


C053C3 






6S: 




DEC 


R3 


; ; BACKUP BY ONE 


4443 


023074 


02C327 


023274 








CMP 


R3, fSTTYIN 


; ;STACK EMPTY? 


4444 


0231 00 


10 344 1 










BLO 


4S 


; ; BR IF YES 


4445 


0231 02 


1 1 1367 


000164 








MOV 3 


(R3) ,9S 


;;SETUP TO TYPEOUT THE DELETED CHAR. 


4446 


C231 06 


004567 


000400 








JSR 


R5, SPRINT 


•,G0 PRINT OUT THE FOLLOWING MESSAGE. 


4447 


0231 1 2 


023272 










.WORD 


9$ 


; ADDRESS OF MESSAGE TO BE TYPED 


4443 


0231 1 4 


000741 










BR 


2$ 


;;G0 READ ANOTHER CHAR. 


4449 


0231 15 


00 571 6 






5S: 




TST 


(SP) 


; ; RUBOUT KEY SET? 


4450 


0231 20 


00 1407 










BEO 


73 


; ;BR IF NO 


4451 


0231 22 


1 ' 2757 


000134 


00ui42 






MCVB 


* '\.9$ 


; : TYPE A BACK SLASH 


4452 


0231 30 


004557 


000356 








JSR 


R5, SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


4453 


023 1 34 


023272 










.WORD 


9$ 


; ADDRESS OF MESSAGE TO BE TYPED 


4454 


0231 35 


005016 










CLR 


(SP) 


; ; CLEAR THE RUBOUT KEY 


4455 


0231 40 


12271 3 


000025 




7S: 




CMP 3 


ff25, (R3/ 


; ; IS CHARACTER A CTRL U? 


4456 


0231 44 


CO 1 0C4 










BNF 


OS 


; ; BR IF NO 


4457 


023146 


004567 


000340 








dSrt 


R5, SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


4458 


0231 52 


023304 










.WORD 


SCNTLU 


; ADDRESS OF MESSAGE TQ BE TYPED 


4459 


0231 54 


0007-;7 










BR 


1$ 


; ;G0 START OVER 


4460 


0231 56 


122713 


000022 




8S: 




CMPw 


#22, (R3) 


; ; IS CHARACTER A "-R"? 



CZQMCFO 
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4461 


0231 62 


001014 








BNE 


3$ 


; ; 3RANCH IF NO 


4462 


023164 


1C501 3 








CLRB 


(R3) 


;;CLEAR THE CHARACTER 


4463 


0231 66 


0:-4567 


000320 






JSR 


R5, SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


4464 


0231 72 


00 1201 








.WORD 


SCRLF 


;ADDRE55 OF MESSAGE TO BE TYPED 


4465 


0231 74 


CC4567 


000312 






JSR 


R5, SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


4466 


23200 


023274 








. WORD 


STTYIN 


.•ADDRESS OF MESSAGE TO BE TYPED 


4467 


023202 


000706 








BR 


2$ 


;;G0 PICKUP ANOTHER CHACTER 


4468 


023204 








4S: 








4469 


023204 


0G4567 


000302 






JSR 


R5, SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


4470 


0232 1 


00 1 200 








.WORD 


SOUES 


; ADDRESS OF MESSAGE TO BE TYPED 


4471 


02331 2 


0C07C0 








BR 


1S 


;;CLEAS THE BUFFER AND LOOP 


4472 


023214 


1 1 1367 


000052 




as: 


MO^'I 


(R3) .9$ 


; : ECHG THE CHARACTER 


4473 


C23220 


0:-45S7 


000266 






JSR 


R5, SPRINT 


;GQ PRINT OUT THE FOLLOWING MESSAGE. 


4474 


023224 


023272 








.WORD 


9S 


; ADDRESS OF MESSAGE TO BE TYPED 


4475 


023226 


122723 


000015 






CMP" 


^15,(R3)+ 


; ; CHECK FOR RETURN 


4476 


023232 


O: 1 272 








SNE 


2$ 


; ; LOO? IF NOT RETURN 


4477 


023234 


1 05063 


177777 






CLRB 


-1 (R3) 


; ;CLEAR RETURN ( THE 15) 


4478 


C23240 


CL4567 


000246 






J£1 


R5, SPRINT 


;GG PRINT OUT THE FOLLOWING MESSAGE. 


4479 


023244 


001 2C2 








.WORD 


SLF 


; ADDRESS OF MESSAGE TO BE TYPED 


4480 


023246 


005726 








TST 


(SP) + 


;;CLEAN RUBOUT KEY FROM THE STACK 


4481 


023250 


01 2603 








MOV 


(SP)+.R3 


; ; RESTORE R3 


4432 


023252 


01 1546 








MOV 


(SP) ,-(5P) 


;; ADJUST THE STACK AND PUT ADDRESS OF 


44S3 


023254 


Q- 6566 


000004 


000002 




MOV 


4(SP) .2(SP) 


;: FIRST ASCII CHARACTER ON IT 


4434 


C23252 


01 27v:o 


023274 


000C04 




MOV 


#STTy'IN.4(SP) 




4485 


023270 


O0OOC2 








RTI 




; ; RETURN 


4486 


G23272 


OCO 






91: 


.BYTE 





;;STORAGE FOR ASCII CHAR. TO TYPE 


4497 


023273 


OCO 








. BYTE 





; ; TERMINATOR 


4488 


023274 


000010 






$TTy IN: 


. LlKB 


8. 


;;RESERVE 8 BYTES FOR TTY INPUT 


4489 


023304 


052536 


00501 5 


COO 


SCNTLU : 


.ASCIZ 


/"U/<1 5X1 2> 


; ; CONTROL "U" 


4490 


02331 1 


136 


006507 


000012 


SCNTl G: 


. ASCIZ 


/"G/<15><12> 


; ;CONTROL "G" 


4491 


02331 6 


5015 


053523 


0201 22 


SMSWK : 


.ASCIZ 


<15><12>/SWR = 


/ 


4492 


023324 


02C075 


000 












4 4 93 


023327 


040 


047040 


053505 


SMNEW: 


.ASCIZ 


/ NEW = / 




4 494 


023334 


036440 


000040 












4495 
4 496 










.SBTTL 


READ AN 


OCTAL NUMB2R FROM THE TTY 


4497 



















4501 
4502 



4504 
4505 



4^^ 1 
451 2 

4514 
4515 
4516 



-THIS ROUTiNt: WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
^CHANGE IT TO BINARY. 

-^■ThE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
-OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS PEAD A "?" WILL BE TYPED 
^FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
;=.THEN BE RETYPED. THE INPUT IS TER'-HNATED BY TYPING A CARRIAGE RETURN. 
■'CALL: 

; ;READ AN OCTAL NUMBER 

;;LOW ORDF.R BITS ARE ON TOP OF THE STACK 
;;HIGH ORDEFi BITS ARE IN SHIOCT 



RDOCT 

RETURN HERE 



^b"6 
r Cb 
oc-f=- 

01 ,6 
1 0246 



000004 000002 



MOV 
MCV 
MCV 
MCV 
MOV 



(SP) ,-( 
4(SP) ,2 
RO,-(SP 
R 1 , - ( S P 
R2,-(SP 



iP) PROVIDE SPACE FOR THE 

[SP) ; ; I'lOUT NUMBER 

; ; PUSH RO Orj STACK 
i ; ; PUSH R1 ON STACK 

) ; ; PUSH R2 ON STACK 



THE NEXT T.^O INSTRUCTIONS PROVIDE AN INTERFACE TO THE SRDLIN ROUTINE 
WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC**. 



C2OMCF0 


0-124 


K ^ EMORY 


EXERCISER, !6K 


VER MATY 11 


30A(1052j 2C-FEB 


-78 07:56 PAGE 92 


CZOMCF . 


n 1 


4-j-F EB-78 


08 '• 1 9 


READ AN OCTAL 


NUMBER FROM THE TTY 


451 7 


023356 


C 1 3746 


1 77776 




MOV 


§>flPSW, -(SP) 


;PUT THE PROCESSOR STATUS ON THE STACK 


4518 


235 52 


004767 


1 77422 




JSR 


PC, SRDLIN 


;Gu TO THE SUBROUTINE 


4519 


023366 


01 2600 






MOV 


( SP)+ , RO 


;;GET ADDRESS OF 1ST CHARACTER 


4520 


023370 


01 OOv, 7 


0G01 02 




MOV 


R0,53 


; ; AND SAVE I T 


4521 


023374 


OC 5001 






CLR 


R1 


; ; CLEAR DATA wORO 


4522 


02 J376 


OC5002 






CLR 


R2 




4523 


02 J4 00 


1 1 2045 




2$: MOVB 


(RO)+,-(SP) 


;; PICKUP THIS CHARACTER 


4524 


023402 


OC 1420 






BLj 


3$ 


; ; I F ZERO GET OUT 


4525 


023404 


122716 


000060 




CWPB 


/? ' , ( S P ) 


;;MAKE SURE THIS CHARACTER 


4526 


023410 


003026 






BGT 


4$ 


; ; IS AN OCTAL DIGIT 


4 527 


0234 12 


1 '. 27 1 6 


000067 




CMPB 


n '7, (SP) 




4523 


0234 1 6 


0C2423 






BLT 


4$ 




4529 


023420 


CC6301 






ASL 


R1 


; ; *2 


4530 


023422 


0G61 02 






ROL 


R2 




453 1 


2 J 4 2 4 


0C6301 






ASL 


R1 


; ; *4 


4532 


023426 


61 02 






ROL 


R2 




4533 


023430 


0C6301 






ASL 


R1 


; ; *8 


4534 


023432 


0C61 02 






ROL 


R2 




4535 


023434 


04 27 1 6 


1 77770 




BIC 


tf'Cl , (SP) 


; ; STRIP THE ASCI I JUNK 


4536 


023440 


052601 






ADD 


( SP)+ , R1 


;;ADD IN THIS DIGIT 


4537 


023442 


0PO756 






BR 


2$ 


; ; LOOP 


4538 


023444 


005726 




3S: TST 


(SP) + 


;;CLEAN TERMINATOR FROM STACK 


4539 


023446 


0! 01 SB 


000012 




MOV 


R1 , 12(SP) 


; ; SAVE THE PESULT 


4540 


023452 


I 0267 


000032 




WOV 


R2 .SHIOCT 




454 1 


02345S 


01 2602 






MQV 


(SP)+,R2 


; ; POP STACK INTO R2 


4542 


023460 


01 2601 






MOV 


(SP)+,R1 


; : POP STACK INTO Rl 


4543 


02:452 


Ci 26C0 






MOV 


(SP)+,R0 


; POP STACK INTO RO 


4544 


023464 


OC 0002 






RTI 




; ; RETURN 


4545 


023466 


OC 5726 




4S: TST 


(SP) + 


;;CLEAN PARTIAL FROM STACK 


4546 


023470 


1 501 






CLR3 


(RO) 


; ;SET A TERMINATOR 


4547 


023472 


0C4567 


000014 




tiSR 


R5, SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


4548 


023476 


ooooco 




5S: .WORD 







4549 


02350C 


004557 


000006 




dSR 


R5, SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


4550 


025504 


00 1 200 






.WORD 


SOUES 


; ADDRESS OF MESSAGE TO BE TYPED 


4551 


023505 


0C0723 






BR 


1$ 


; ; TRY AGAIN 


4552 


02351 


000000 




SHIOCT: .WORD 





; ;HIGH ORDEP BITS GO HERE 


4553 
















4554 
















4555 










^ SUBSOUTIIw 


TO PASS RELOCATED 


.lESSAGE ADDRESSES TO THE STYPE ROUTINE. 


4556 










»■ call: 


JSR R5, 


SPRINT 














<MES5AGE VIRTUAL 


ADDRESS> 


4558 
















4559 


023512 


012567 


O00O16 


SPRINT: MOV 


(R5)+. IS 


;GET THE MESSAGE VIRTUAL ADDRESS. 


4550 


023516 


065767 


155Q5§ Q00010 




ADO 


RELQCF, IS 


•.MAKE IT PHYSICAL. 


4561 








• THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPE ROUTINE 


4552 










« WIHTOUT USING A "TR«P'- INSTRUCTION AS CALLED FOR BY **SYSMAC**. 


4553 


023524 


01 3746 


177776 




MOV 


(P*PSW, -(SP) 


;PUT THE PROCESSOR STATUS ON THE STACK 


4564 


Q23530 


C04767 


000004 




dSR 


PC, STYPE 


;G0 TO THE SUBROUTINE 


4565 


023534 


OCOQCO 




IS: .WORD 





;C0NTAIN3 THE PHYSICAL MESSAGE ADDRESS. 


4566 


023536 


000205 






RTS 


R5 


;RETURN. 


4567 
















4568 










SBTTL TYPC ROUTINE 




4569 
















4570 
















4571 










•ROUTINE TO TYRE ASCI2 MESSAGE. 


MESSAGE MUST TERMINATE WITH A BYTE. 


4572 










•THE ROUTIiNc 


HILL INSERT A NUMB 


ER OF NULL CHARACTERS AFTER A LINE FEED. 



C2QMCF0 
CZOMCF. 



0-124K MEMORY fXERCJSIR, 1 6K VER MACYH 30A(1052) 

1 14-FEBr7a 08:19 TYPE ROUTINE 



20-FEP-78 07:56 PAGE 93 



4573 












*N0TE1 




SNULL CONTAINS THE CHARACTER TO EE USED AS THE FILLER CHARACTER 


4574 












*NDTE2 




SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 


4575 












»N0TE3: 


5FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


4575 




















4577 












♦call: 








4578 












*1) USING A TRAP INSTRUCTION 




4579 














TYPE 


, MESADR 


;MESADR IS FIRST ADDRESS QF AN ASCIZ STRING 


4580 












*DR 








4581 














TYPE 






4582 














MESADR 






4583 












f 








4584 




















4535 


023540 


105767 


155413 




STYPE: 


TST3 


STPFLC 


: IS THERE A TERMINAL? 


4586 


033544 


1C00C2 










BPL 


1$ 


IF YES 


4 587 


023546 


OOOOpO 










HAI.T 




-.HALT HERE IF NO TERMINAL 


4588 


C255S0 


0C0420 










BR 


3$ 


; LEAVE 


4589 


023552 


01 004S 






IS: 


MOV 


RO,-(SP) 


ISAVE RO 


4590 


023554 


01 7600 


000002 








MC .' 


@2(SP) .RO 


;GET ADDRESS OF ASCIZ STRING 


4591 


023560 


122767 


OOPOGI 


155436 






CMPB 


^APTENV , SENV 


; RUNNING I'J APT MODE 


4592 


023566 


031011 










BNE 


62S 


INO.GO CHECK FOR APT CONSOLE 


4 593 


023570 


132767 


OOO10O 


155427 






BITp 


/^APTSPOOL .SENVM 


•.SPOOL MESSAGE TO APT 


4594 


023576 


CO 14C5 










BEQ 


62$ 


;NO.GO CHECK FOR CONSOLE 


4595 


023600 


0'. 0067 


000004 








MOV 


R0,6l$ 


; SETUP ME33AGE ADDRESS FOR APT 


4536 


023604 


C047J7 


000222 








dSR 


PC.SATY3 


; SPOOL .MESSAGE TO APT 


4597 


C23dI0 


OOOOCO 






61S: 


.WORD 





;MESSAG£ ADDRESS 


4598 


0236 1 2 


122767 


0p0Q40 


155405 


6;S: 


PITB 


#APTCSUP,SENVM 


;APT CONSClE SUPPRESSED 


4599 


023520 


001003 








^NE 
Ml^/B 


$0$ 


;YES,SKIP TYPE OUT 


4600 


023622 


1 1 2C45 






2S: 


(RO)+,-(SP) 


;PUSH CHARACTER TO BE TYRED ONTO STACK 


4601 


023624 


001005 










BNE 


4S 


;BR IF IT ISN'T THE TERMINATOR 


4602 


023626 


0C5726 










TST 


(SP) + 


;IF TERMINATOR POP IT OFF TH^ STACK 


4S03 


023530 


C ■ 26C0 






60S: 


MOV 


(SP)+.RO 


;RESTOR£ RO 


4 604 


023632 


0t.27l6 


000002 




3S: 


ADD 


#2, (SP) 


;ADJU5T RETURN PC 


4605 


023636 


000002 










RTI 




; RETURN 


4606 


023G40 


122716 


00001 1 




4S: 


CMPB 


#HT, (SP) 


:8RANCH IF <HT> 


4 50 7 


023644 


001431 










beo 


as 




4608 


C23646 


122716 


000200 








CMP3 


/?CRLF, (SP) 


;ERANCH IF NOT <CRLF> 


4609 


023652 


001007 










ENE 


55 




4610 


02 3654 


0C5725 










TST 


(SP) + 


•.POP <CR><LF> EQUIV 


4 511 


23656 


004567 


177630 








JSR 


R5, SPRINT ;C0 PRINT OjT THE FOLLOWING MESSAGE. 


4612 


023652 


00 1 2C 1 










SCRLF 






4613 


C23e-54 


105067 


000130 








CLR3 


SCHARCNT 


:CLEAR CHAPACTER COUNT 


4614 


023670 


CC0754 










BR 


2S 


;C=ET NEXT CHARACTER 


4615 


C 2 36 7 2 


0047t7 


000056 




5S: 


JSR 


PC.STYPEC 


;G0 TYPE THIS CHARACTER 


46". 6 




12 5725 


155254 




65: 


CMPB 


5FILLC, (SP)+ 


;IS IT TIME FOR FILLER CHARS.? 


461 7 


023702 


0:1347 










BNE 


2S 


: IF NO GO GET NEXT CHAR. 


4618 


023704 


01 6746 


155244 








MCV 


SNULL, -(SP) 


;GET p OF FILLER CHARS. NEEDED 


4 619 


















■.AND THE NULL CHAR. 


4620 


2 3T1 


10 5366 


000001 




7S: 


DECB 


1 (SP) 


;DO£S A NULL NEED TO BE TYPED? 


4C21 


0237 1 4 


oo27-;o 










BLT 


6S 


;SR IF NO— GO POP THE NULL OFF OF STACK 


4 622 


0237 16 


0w4767 


000032 








JSR 


pc,STYpf:c 


;G0 TYPE A NULL 


4 623 


023722 


1^.5367 


000072 








DECB 


SCHARCNT 


;D0 NOT COUNT AS A COUNT 


4624 


023726 


0v07' 










BR 


7S 


; LOOP 


4 525 




















4626 












HORIZONTAL TAB 


PROCESSOR 




4627 




















4628 


C23730 


1 *, 2716 


000040 




as: 


MQVB 


i>' .(SP) 


:REPLACE TAB WITH SPACE 



C20MCF0 
C20MCF . ? 

4629 
4630 
4631 
4 632 
4633 
4634 
4635 
463S 
4637 
4638 
4639 
4640 
4641 
4642 
4643 
4644 
4645 
4646 
4647 
4648 
4649 



124K VEr.'iORY EXERCISER, 
14-FEB--78 08:19 



16K VER MACYi 
TYPE ROUTIME 



1 30A(1052) 2C-FEP-78 07:56 PAGE 94 



023734 


C04767 


000014 




9S: 


JSR 


PC.STYPEC 


;TYPE A SPACE 


023740 


132767 


000007 


000052 




EI TB 


#7 .SCHARCNT 


; BRANCH IF NOT AT 


023746 


00 1372 








BNE 


9S 


;TAD STOP 


023750 


CC5726 








TST 


(SP) + 


;PCP SPACE OFF STACK 


023752 


000723 








BR 


2S 


;GET NEXT CHARACTER 


023754 


105777 


155170 




STYPEC: 


TSTB 


(PSTP5 


;WAIT UNTIL PRINTER IS READY 


023760 


1 00375 








BPL 


STYPEC 




023762 


1 1 6677 


000002 


155162 




MOVB 


2{SP) .i^STPB 


; LOAD CHAR TO BE TYPED INTO DATA REG 


023770 


12276S 


000015 


000002 




CMPB 


*CR,2(SP) 


;IS CHARACTER A CARRIAGE RETURN? 


023776 


00 1003 








BNE 


IS 


IBRANCH IF NO 


O24000 


1C5C67 


000014 






CLRB 


SCHARCNT 


; YES — CLEAP CHARACTER COUNT 


024004 


0C0406 








BR 


STYPEX 


;Exn 


024006 


122766 


000012 


000002 


1$: 


CMPB 


#LF,2(SP) 


;IS CHARACTER A LINE FEED? 


024014 


OC 1402 








BEO 


STYPEX 


; BRANCH IF YES 


024016 


105227 








INC" 


(PC) + 


;COUNT THE CHARACTER 


024020 


000000 






SCHARCNT 


: .WORD 





; CHARACTER COUNT STORAGE 


024022 


000207 






STYPEX: 


RTS 


PC 





.SBTTL APT COMMUNICATIONS ROUTINE 



4650 


C24024 


1 1 2767 


000001 


000376 


SATY1 : 


MOVB 


^1 .SFFLG 


: ;T0 REPORT FATAL ERROR 


4651 


024032 


1 1 2767 


000001 


000366 


$ATY3: 


MOVB 


*1 ,SMFLG 


; ; TO TYPE A MESSAGE 


4652 


024040 


0004C3 








BR 


SATYC 




4653 


024042 


1 1 2767 


000001 


000360 


$ATY4: 


MOVE 


#1 .SFFLG 


; ;T0 ONLY REPORT FATAL ERROR 


4654 


024050 








S:TYC: 








4655 


024050 


01 0046 








MOV 


RO,-(SP) 


; ; PUSH RO ON STACK 


4656 


024052 


01 0146 








ML,V 


RI.-(SP) 


; ; PUSH R1 ON STACK 


4657 


02405^ 


105767 


000346 






TSTB 


SMFLG 


;; SHOULD TYPE A MESSAGE? 


4658 


024060 


001450 








BEO 


5$ 


; ; IF NOT : BR 


4559 


024062 


1.. 2767 


000001 


155134 




CMPB 


#APTENV .SENV 


;;OPERATING UNDER APT? 


4660 


024070 


0C1031 








BNE 


as 


; ; IF NOT: BR 


4661 


024072 


132767 


000100 


155125 




BITS 


w APTSPOOL .S'^NVM 


SHOULD SPOOL MESSAGES? 


4662 


0241 00 


OC 1425 








BEO 


3$ 


; ; I F NOT : BR 


4663 


0241 02 


01 7600 


000004 






MOV 


P4(SP) ,R0 


; :GET MESSAGE ADDR. 


4664 


0241 06 


052766 


000002 


000004 




ADD 


«^2,4(SP) 


; ;BUMP RETURN ADDR. 


4665 


0241 14 


005767 


155064 




is: 


TST 


SMSGTYPE 


;;SEE IF DONE w/ LAST XMISSION? 


4666 


024120 


001375 








BME 


IS 


; ; IF NOT : WAIT 


4667 


0241 22 


01 0067 


155072 






MOV 


RO.SMSGAD 


; ; PUT ADDR IN MAI LBOX 


4668 


0241 26 


105720 






2S: 


TSTB 


{R0)4- 


; ; FIND END OF MESSAGE 


4669 


0241 30 


CC1376 








BNE 


2$ 




4670 


0241 32 


166700 


155U62 






SUB 


SMSGAO.RO 


; ;SUB START OF MESSAGE 


4671 


0241 36 


006200 








ASR 


RO 


;:GET MESSAGE LNGTH IN WORDS 


4672 


C24140 


01 0067 


155056 






MOV 


RO.SMSGLGT 


; ; PUT LENGTH IN MAI LBOX 


4673 


024 144 


01 2767 


000004 


155032 




MOV 


^4, SMSGTYPE 


; ; TELL APT TO TAKE MSG. 


4674 


024152 


0D0413 








BR 


5$ 




4675 


024154 


01 7667 


000004 


000016 


3S: 


MOV 


@4(SP) ,4S 


;;PUT MSG ADDR IN JSR LINKAGE 


4676 


0241 62 


062766 


000002 


000004 




ADD 


#2.4(SP) 


; ;BUMP RETURN ADDRESS 


4677 


0241 70 


01 67'26 


153602 






MOV 


177776, -(BP) 


; ;PUSH 177776 ON STACK 


4678 


024 1 74 


004767 


177340 






JSR 


PC.STYPE 


; ;CALL TYPE MACRO 


4679 


024200 


000000 






4S: 


.WORD 







4680 


024202 








5S: 








4681 


C24202 


105767 


000221 






TSTB 


SLFLG 


; ; SHOULD LOG AN ERROR? 


4682 


C24206 


001422 








BEQ 


10$ 


; ; IF NOT: BR 


4583 


024210 


01 7600 


000004 






MDV 


(P4{SP) ,R0 


; ;GET ERROR # 


4684 


024214 


062766 


000002 


000004 




ADD 


#2,4(SP) 


; ;BUMP RETURN ADDR. 



iiiiili 



CZOMCFO 


0-1 24K r.'. EMORY 


EXERCISER, 16K 


VER 


MA~Y1 1 


30A(1052) 20-FE3- 


-78 07:56 PAGE 95 


CZQMCF. 


PI 1 


4-FEB-78 


08: 19 




AFT COMMUNICATIONS ROUTINE 




4685 


024222 


01 2701 


001344 






MOV 


ifSASTAT.RI 


;POINT TO TABLE START 


4686 


024226 


0C571 1 






6$: 


TST 


(R1 ) 


;END OF TABLE? 


4687 


024230 


1 00404 








BMI 


8S 


;IF so: BP 


4688 


024232 


02 oo: ! 








CMP 


RO, (.91 ) + 


;PROPER ENTRY? 


4689 


024 2 34 


00 1 406 








BEO 


9$ 


; I F so : BR 


4690 


024236 


005721 








TST 


(R1 ) + 


;MOVE PAST COUNTER WORD 


4691 


02424C 


000772 








BR 


6$ 


;KEEP LOOKING 


4692 


024242 


026701 


155244 




8S: 


cr 


SAPTR , R1 


ITABLE FULL? 


4693 


024246 


OC 1402 








BEO 


ICS 


;IF so: BP — NO MORE ROOM 


4 694 


024250 


01 0021 








MOV 


RO, (R1 ) + 


;S£T UP NEW ENTRY 


4695 


024252 


0:521 1 






9$: 


INC 


(R1 ) 


;BUMP ERROP COUNT 


4696 


024254 


1C5767 


000150 




10$: 


TSTB 


SFFLG 


; SHOULD REPORT FATAL ERROR? 


4697 


024260 


001416 








BEO 


12$ 


; I F NOT : BR 


4698 


024262 


0C5767 


154736 






TST 


SENV 


; RUNNING UNDER APT? 


4699 


02-1265 


CO 1 41 3 








BEO 


12s 


; IF NOT: BR 


4700 


024270 


005767 


154710 




11$: 


TST 


SMSGTYPE 


; FINISHED LAST MESSAGE? 


4701 


024 2 74 


CO 1375 








BNE 


11$ 


; IF NOT : WAIT 


4702 


024276 


01 7667 


000004 


154702 




MOV 


@4CSP) .SFATAL 


•.GET ERROR # 


4703 


024304 


062766 


000002 


000004 




ADD 


U2,A(SP) 


; ; BUMP RETURN ADDR. 


4704 


024312 


005267 


154666 






INC 


SMSGTYPE 


;TELL APT TO TAKE ERROR 


4705 


024316 


105067 


0001 06 




12$: 


CLRB 


SFFLG ; 


;CLEAR FATAL FLAG 


4706 


024322 


1G5C67 


OOC -01 






CLRB 


SLFLG ; 


;CLEAR LOG FLAG 


4707 


024326 


1C5067 


000074 






CLRB 


SMFLG ■ ; 


; CLEAR MESSAGE FLAG 


4708 


024332 


01 2601 








MOV 


(SP)+,R1 ; 


;POP STACK INTO R1 


4709 


C24334 


01 2600 








MOV 


(SP)+,R0 ; 


•.POP STACK INTO RO 


4710 


02433S 


0G0207 








RTS 


PC ; 


; RETURN 


471 1 


024 340 








SATY6: 








4712 


024340 


01 0046 








MOV 


RO.-(SP) ; 


;PUSH RO ON STACK 


4713 


024342 


01 6700 


155144 






MOV 


SAPTR, RO 




4714 


C2434B 


1£2700 


001344 






SUB 


^SASTAT.RO 


;GET SIZE OF STAT TABLE 


4715 


C24352 


0C5767 


154626 




1$: 


TST 


$MSGTY ; 


;SEE IF DONE LAST COMMUNICATION 


4716 


C24356 


0: 1375 








BNE 


1$ ; 


; I F NOT : WAI T 


4717 


024360 


01 0067 


154636 






MOV 


RO.SMSGLG ; 


■.SET MESSAGE LENGTH 


4718 


024364 


01 2767 


0013' } 


154626 




MOV 


/S'SASTAT .SMSGAD ; 


;SET MESSAGE ADDR. 


4719 


024372 


01 2767 


000002 


154604 




MOV 


/'2,5V.SGTY ; 


;TELL APT TO TAKE STATS. 


4720 


024400 


01 2600 








MOV 


(SP)+,RO ; 


;POP STACK INTO RO 


4721 


024402 


000207 








RTS 


PC ; 


;RETURN 


4 7 22 


024404 








$ATY7: 








4723 


024404 


01 0046 








MOV 


RO,-(SP) ; 


; PUSH RO ON STACK 


4724 


024406 


01 2701 


001344 






MOV 


#SASTAT,R1 ; 


•.GET START OF TATLE 


4725 


02441 2 


005721 






1$: 


TST 


(R1)+ ; 


;END OF TABLE? 


4726 


0244 1 4 


1 00402 








BMI 


2$ ; 


;IF so: BP 


4727 


0244 16 


005021 








CLR 


(R1)+ ; 


;CLEAR ERROR COUNT 


4728 


02^M20 


CC0774 








BR 


IS ; 


•.KEEP CLEARING 


4729 


C24422 








2S: 








4730 




01 2600 








MOV 


(SP)+.RO ; 


;POP STACK INTO RO 


4731 


024424 


00 0207 








RTS 


PC ; 


; RETURN 


4 732 


024426 


OCO 






$MF LG: 


. BYTli 


; 


;MESSG. FLAG 


4733 


024427 


OCO 






SI.FLC: 


. BYTE 


; 


; LOG FLAG 


4734 


024430 


OCO 






SFFLG: 


.BYTE 


; 


;FATAL FLAG 


4 7 35 




C 2 4432 








. EVEN 






4 7 36 




0C0200 






APT SIZE 


= 200 






4737 




OuOOOl 






APT£NV= 


001 






4738 




0C01 00 






APTSP-00 


..= 100 






4739 




0000»0 






APTCSUP 


= 040 






4740 
















*•l^Wiie^i^ytt^M*l'^^^^|^**■^^*^^i^>|^'>^■^^^f•*^f^f^^^i^^>^i|^^^ 





0-1 24 K !\', EMORY 




P11 14-PEB-78 


•^741 












4 7-13 












4745 












4""47 






4 "49 






4749 






4750 






4751 












4753 


024432 






024432 


01 0045 


4755 


0244 34 


O- 0145 




024435 


01 0245 


4757 


C24440 


01 0346 




02-;442 


01 0546 


4759 


024444 


01 2746 




0244 50 


0! 6605 


4761* 


024 4 54 


1C0004 


4762 


C24456 


0G5405 


4763 


024460 


i 1 2766 


4764 


024.260 


01 6700 


4765 


2 44 7 2 


01 2703 


4766 


024476 


060003 


4767 


024500 


1 1 2723 


4768 


024504 


0C5002 


4769 


024505 


0: 5001 


4770 


0245 1 2 


U'0105 


4 771 


024514 


CC2402 


4772 


024515 


0:5202 


4773 


C24520 


000774 




C24522 


060105 


4 776 


024524 


0057C2 


4776 


024525 


0C10C2 


4777 


024530 


1C5716 


4778 


024532 


1 C04C7 


4779 


024534 


1 C 63 1 6 


4780 


024536 


1C3003 


4781 


024540 


1 ■ 6663 


4782 


24 546 


052702 


4783 


024552 


CE.27C2 


4784 


02455C 


1 1 0223 


4785 


024 560 


005720 


4736 


C24562 


020067 


4787 


024565 


103746 


4783 


C24570 


101002 


4739 


024572 


01 05C2 


4790 


024574 


000764 


4791 


024576 


105726 


4792 


0245C0 


100003 


4793 


024502 


1 16663 


4794 


024510 


105013 


4795 


024512 


C-i 2505 


4796 


024514 


01 2603 



16K VE« 

APT COM 



MA-^.YII 30A(1032) 20-FEB-78 07:56 PAGE 96 
'.UNICATIONS ROUTINE 



020200 
000020 



000055 
154106 
024654 



.SB1TL CONVERT BINARY TO DECIMAL A:.D TYPE rOUTINE 

*THIS ROUTINE IS US1D TO CHANGE A 16~BIT BINARY NU'^BER TO A 5-DIGIT 
•SIGNED DECIiVAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
»NU,V3::S IS PC5ITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
*B£^OKE THE FiRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE' 
♦REPLACEC WITH SPACES. 
♦ C'-LL: 



000001 
000060 
000040 



6S: 
7S: 



177777 177776 



MOV 


NUM,-( SP) 


;PUT THE BINARY NUMBER ON THE STACK 


TYPDS 




;G0 TO THE ROUTINE 


MOV 


RO , -( SP ) 


:PUSH RO ON STACK 


MOV 


R1 ,-(SP) 


•.PUSH RI ON STACK 


MOV 


R2 ,-( S?) 


;PUSH R2 ON STACK 


MOV 


R3,-(S?) 


;PUSH R3 Orj STACK 


MOV 


R5 ,-( SP) 


; PUSH R5 ON STACK 


MOV 


ff2C200,-(SP) 


;SET BLANK SWITCH AND SIGN 


MOV 


20(SP) , R5 


;GET THE INPUT NUMBER 


BPL 


1 $ 


;BR IF INPUT IS POS. 


NEG 


R5 


;MAKE THE BINARY NUMBER POS. 


MOVB 


# ' - , 1 ( SP ) 


;MAKE THE ASCII NUMBER NEG. 


MOV 


RELOCF, ftO 


GET RELOCATION FACTOR. 


MOV 


(^ SDBLK , R3 


;SETUP THE OUTPUT POINTER 


ADD 


RO , R3 


ADD IN RELOCATION FACTOR. 


MOVB 


i^' , ( R3 ) + 


;SET THE FIRST CHARACTER TO A BLANK 


CLR 


R2 


; CLEAR THE BCD NL'MBER 


MOV 


SDTBL(RO) ,R1 


;GET THE CONSTANT 


SUB 


R1 ,R5 


;FORM THIS BCD DIGIT 


BLT 


4$ 


;3R IF DONE 


INC 


R2 


•.INCREASE THE BCD DIGIT BY 1 


BR 


3S 




ADD 


RI ,R5 


;ADD BACK THE CONSTANT 


TST 


R2 


;CHECK IF BCD DIGIT=0 


BNE 


5S 


;FALL THROUGH IF 


TSTB 


(SP) 


ISTILL DOING LEADING ' S? 


BMI 


7S 


;BR IF YES 


ASLU 


(SP) 


;HSD? 


BCC 


6S 


;BR IF NO 


MOVB 


1 (S?) ,-1 (R3) 


:YES — SET THE SIGN 


BIS 


ti'Q,U2 


:MAKE THE BCD DIGIT ASCII 


BIS 


# ' ,R2 


;MAKE IT A SPACE IF NOT ALREADY A DIGIT 


MOVB 


R2. {R3)+ 


;PUT THIS CHARACTER IN THE OUTPUT BUFFER 


TST 


(R0) + 


:dUST INCREMENTING 


CN".P 


RO, .EIGHT 


CHECK THE TABLE INDEX 


BLO 


2S 


GO DO THE NEXT DIGIT 


BHI 


as 


;G0 TO EXIT 


MOV 


R5,R2 


•.GET THE LSD 


BR 


6S 


;G0 CHANGE TO ASCII 


TSTB 


(SP) + 


;WAS THE LSD THE FIRST NON-ZERO? 


BPI 


9S 


;Bf< -F NO 


MOV a 


-1 (SP) ,-2(R3) 


;YES— SET THE SIGN FOR TYPING 


CLRB 


(R3) 


;SET THE TERMINATOR 


MOV 


(SP)+,R5 


;POP STACK INTO R5 


MOV 


(SP)+,R3 


;P0? STACK INTO R3 



C20MCF0 


0-1 24K MEMORY 


EXERCISER, 16K 


VER 


MACY1 1 


30A(1052) 20-FE8 


-78 07:56 PAGE 97 




CZOMCF. 


PI 1 


4-FEB-78 


OB: 19 




CONVERT 


BINARY 


TO DECIMAL AND TYPE ROUTINE 




4797 


024615 


01 2602 










MOV 


(SP)+,R2 


; ; POP STACK INTO R2 




4798 


024620 


01 2601 










MOV 


(SP)+,R1 . 


; ; POP STACK INTO RI 




4799 


024622 


01 2600 










MOV 


(SP)+,R0 


; ; POP STACK INTO RO 




4800 


024624 


004567 


176662 








JSR 


R5, SPRINT 


;G0 PRINT OuT THE FOLLOWING MESSAGE. 


4801 


024630 


024654 










.WORD 


SDBLK 


; ADDRESS OF MESSAGE TO BE TYPED 




4802 


024632 


01 6666 


000002 


000004 






MOV 


2(SP) ,4(SP) 


; ; ADJUST THE STACK 




4003 


024640 


01 2616 










MOV 


(SP)+,(SP) 






4804 


024G42 


C0OOO2 










RTI 




; ; RETURN TO USER 




4805 


024644 


023420 






$DTBL: 


10000. 








4806 


024645 


0: 1 750 










1 000. 








4807 


024650 


000144 










1 00 . 








4 303 


024552 


000012 










10, 








4809 


024654 


000004 






SD2LK: 


. BLKW 


4 






4810 












sbttl 


BINARY 


TO OCTAL (ASCI I ) 


AND TYPE 




481 1 






















4S12 






















4813 












*THIS 


ROUTINE 


IS USED TO CHANGE 


A 16-BIT BINARY NUMBER TO A 6-DIGIT 


4814 












♦OCTAL 


(ASCI I ) 


NUMBER AND TYPE 


IT. 




481 5 












*STYPQ5 L.JTER HERE TO SETUP t 


JPPRESS ZEROS AND NUMBER OF DIGITS 


TO TYPE 


4816 












♦call: 










4317 














MOV 


NUM,-(SP) 


; ; NUMBER TO BE TYPED 




4018 














TYPOS 




; iCALL FOR TYPEOUT 




4819 














.BYTE 


N 


;;N=1 TO 6 FOR NUMBER OF DIGITS TO 


TYPE 


4820 














.BYTE 


M 


; ;M=1 OR 




4821 


















; ; 1 =TYPE LEADING ZEROS 




4822 


















;;0=SUPPRESS LEADING ZEROS 




4823 






















4824 












».$TYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE 


LAST 


4825 












♦STYPOS OR STYPOC 






4826 












*CALL: 










4827 














MOV 


NUM,-(Sr ) 


; iNUMBER TO BE TYPED 




482S 














TYPCN 




; -.CALL FOR TYPEOUT 




4829 






















4830 












♦STYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 




4331 












"CALL: 
























MOV 


NUM,-(SP) 


; ;NUMBER TO BE TYPED 




4833 














TYPOC 




; ;CALL FOR TYPEOUT 




4834 






















4S35 


C24664 


01 7646 


000000 




STYPCS: 


MOV 


@(SP) .-(SP) 


; ; PICKUP THE '.'ODE 




4836 


C24570 


1 1 6667 


000001 


000213 






MOVB 


1 (SP) .SCFl LL 


; ; LOAD ZERO FILL SWITCH 




4837 


0246 75 


1 1 2667 


00021 1 








MOVB 


(SP)+.iOMODE+1 


;;NUMBER OF DIGITS TO TYPE 




4338 


024702 


062716 


000002 








ADD 


til, (SP) 


; lADJUST RETURN ADDRESS 




4839 


024 7 C6 


0C04C6 










BR 


STYPON 






4840 


024710 


1 1 27-7 


000001 


000173 


STYPOC: 


MOVB 


1 . ; F U L 


;;SET THE ZERO FILL SWITCH 




4341 


0247 16 


1 -. 2767 


000006 


0001 67 






MOV 3 


(ire.SDMODE + l 


; ;5ET FOR SIX(6) DIGITS 




4342 


024724 


1 1 2767 


000005 


0001 56 


STyPON: 


MOVB 


^■B.SOCNT 


; ;SET THE ITERATION COUNT 




4 843 


024732 


01 0346 










MOV 


R3,-(S0) 


; ; SAVE R3 




4844 


024734 


C^ 0445 










m:- ; 


R4,-(SP) 


; ; SAVE R4 




4 845 




01 0546 










MOV 


R5.-(SP) 


; -.SAVE R5 




4846 


024740 


1 - 6704 


000147 








MOVB 


SOMODE+1 .R4 


;:GET THE NUMBER OF DIGITS TO TYPE 




4847 


024744 


O:- 5404 










NEG 


R4 






4348 


024746 


0.^2704 


000005 








ADD 


*6,R4 


;;SU3TRACT IT FOR MAX. ALLOWED 




4 34 9 


024752 


1 1 0467 


000134 








MOVB 


R4,$CM0DE 


; ; SAVE IT FOR USE 




4350 


024756 


1 1 6704 


000127 








MOVB 


$0FILL,R4 


;;GET THE ZERO FILL SWITCH 




4851 


024762 


01 6605 


000012 








MOV 


12(SP) ,R5 


— PICKUP THE INPUT NUMBER 




4852 


024766 


005003 










CLR 


R3 


; ;CL£AR THE OUTPUT WORD 





20MC F 


0-1 24K MEMORY 


EXERCISER, 16K 


VER 


MACY1 1 


30A(1052} 20-FEe-78 07:56 PAGE 98 


20MCF . 


P1 1 


4-FEB-78 


08: 19 


BINARY 


TO OCfAL (ASCII) AND TYPE 


•f 853 








1 S : 


ROL 


R5 


; ; ROTATE MSB INTO "C" 


4854 




C 4 4 






BR 


3$ 


; ;G0 DO MS3 






C 6 1 5 




2$ : 


ROL 


R5 


; ; FORM THIS DIGIT 


4856 




0061 05 






ROL 


R5 






0250 00 


0C6 1 05 






ROL 


R5 




4858 


025002 


01 0503 






MOV 


R5,R3 






0250 04 


C 5 1 3 




3$ : 


ROL 


R3 


; ;GET LSB OF THIS DIGIT 


4860 


02bOOD 


1 'w5367 


0001 00 




DECS 


SOMODE 


; ; TYPE THIS DIGIT? 




0250 12 


100017 






BPL 


7S 


; ; BR IF NO 


4832 


no^A ^ n 




1 77770 




BIC 


/^177770, R3 


; ;GET RID OF JUNK 


4863 


025020 


Ou 1 002 






BNE 


45 


; ;TEST FOR C 












TS" 


R4 


; -.SUPrRESS THIS G? 


4865 




00 1 403 






BEO 


5S 


; ;3R IF YES 


4866 


025025 


OC 5204 




4$ : 


INC 


R4 


;: DON'T SUPPRESS ANYMORE O'S 


4867 


0^5030 




000060 




BIS 


#'0,R3 


; ;MAKE THIS DIGIT ASCII 




0^5034 




000040 


5$ : 


BIS 


,R3 


;;MAKE ASCII IF NOT ALREADY 


4859 




1 1 0367 


000042 




MOVB 


R3,a$ 


; ;SAVE FOR TYPING 




025044 


004567 


1 76442 




dS.l 


R5, SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


487? 


025050 








.WORD 


8S 


; ADDRESS OF MESSAGE TO BE TYPED 


4872 


r o^''"*^K 




000032 


7S ■■ 


DECS 


SOCNT 


; ; COUNT BY 1 


4873 


025056 


00 j34 6 






BGT 


2$ 


; ;BR IF MORE TO DO 


4874 


025060 


00 24 02 






BLT 


6$ 


; ; BR IF DONE 


4875 


025062 








INC 


R4 


;; INSURE LAST DIGIT ISN'T A BLANK 












BR 


25 


; ;G0 DO THE LAST DIGIT 


4077 




0?2'~05 




6$ : 


MOV 


(SP)+, R5 


; ;RESTORE R5 


4878 




1 2604 






MOV 


(SP)+,R4 


; ; RESTORE R4 


4879 










MOV 


(SP)+,R3 


; ;REST0RE R3 


4880 




1 6666 


000002 000004 




MLV 


2(SP) ,4(SP) 


;;SET THE STACK FOR RETURNING 


4881 


00%^ n4 








MOV 


(SP)+, (SP) 




4882 


A^- A ~ 


A A A A A O 

uu u u u z 






RTI 




; ; RETURN 


4883 


O^ol Ob 






as : 


. BYTE 





r.STORAGE FOR ASCII DIGIT 


4BS4 




AAA 






.BYTE 





; -.TERMINATOP FOR TYPE ROUTINE 


4885 




AAA 




SOCNT : 


. BYTE 





; ;OCTAL DIGIT COUNTER 


4886 


nor 


AAA 




SOFI ll: 


.BYTE 





; ;ZERO FILL SWITCH 


4887 


0251 2 


00 0000 




SOMODE : 


.WORD 





;;NUMdER of DIGITS TO TYPE 


4838 








;ERROR 


TRAP SERVICE ROUTINE 




4889 




0057"? 




ERRTRP: 


TST 


(PC) + 


;CHECK IF PPEV TRAP TO 4 REPORTED 


4890 


no- 1 1 R 


A A A A A A 
U U U U U U 




IS: 


.WORD 





;CCNTAINS EPROR REPORTED FLAG 


4891 


0251 20 


001010 






BNE 


25 


; BRANCH IF NOT REPORTED 


4992 


0251 22 


005267 


1 77770 




INC 


IS 


;SET DOUBLE TRAP FLAG. 


4093 


0251 26 


01 1667 


154034 




MOV 


(SP), STMP3 


-.SAVE THE BAD PC FOR TYPOUT. 


4894 


025132 


004767 


174;j02 




JSR 


PC, SERROR 


ERROR *** (GO TYPE A MESSAGE) 


4895 


025135 


000031 






.WORD 


31 


; ERROR TYPE CODE. 


4896 


025140 


000401 






BR 


35 


;SKIP HALT 


4897 


025142 


000000 




2S: 


HALT 




; ERROR! SECOND TRAP TO A OCCURRED 


4898 














;BEF0RE FIRST WAS PRINTED 


4899 


025144 


0C5067 


177746 


3S: 


CLR 


IS 




4900 


025150 


000002 






RTI 




; RETURN TO PROGRAM AND TRY TO RECOVER 


4901 
















4902 








.SBTTL 


PHYSIt^ 


L ADDRESS TYPE ROUTINE 


4903 








ROUTINE TO 


TYPE A PHYSICAL 


ADDRESS (18 BITS) . 


4904 


025152 






STYPAD: 








4905 


0251 52 


01 0046 






MOV 


RO,-{SP) 


; ; PUSH RO ON STACK 


4906 


0251 54 


01 0146 






MOV 


R1 ,-(SP) 


; ; PUSH R1 ON STACK 


4907 


025156 


01 0246 






MOV 


R2,-(SP) 


; ; PUSH R2 ON STACK 


4908 


025160 


01 0346 






MOV 


R3,-(SP) 


; ; PUSH R3 ON STACK 



CZOMCFO 


0-1 24K MEMORY 


EXERCISER, 16K 


VER 


MA-Y1 1 


30A(1052) 20-FEB 


-78 07:56 PAGE 99 


C20MCF. 


PI 1 


4-F EB-7a 


Oe: 19 




PHYSICAL ADDRESS TYPE ROUTINE 




4909 


025162 


01 6602 


000012 






MOV 


12(SP), R2 


;GET BASE ADDRESS 


4910 


0251 66 


005003 








CLR 


R3 


; WORKING & INDEX REGISTER 


491 1 


C251 70 


005767 


153412 






TST 


MMAVA 


; CHECK FOR f.'EM MGMT AVAILABLE 


491 2 


0251 74 


00142) 








BEO 


IS 


; BRANCH IF NO MEM MGMT 


4913 


0251 76 


022737 


000001 


177572 




BIT 


1 , f/rSRO 


; CHECK IF MEM MG!V1T ENABLED 


4914 


025204 


00 1424 








BEO 


IS 


; BRANCH IF VEM MGMT NOT ENABLED 


4915 


02 5206 


01 0201 








MOV 


R2, R1 


;COPY VIRTUAL ADR 


4916 


0252 1 


0061 01 








RC _ 


R1 


;SHUFFLE BITS 13,14,15 INTO 1,2,3 


491 7 


025212 


006101 








ROL 


R1 




4918 


025214 


0C61 01 








ROL 


R1 




4919 


0252 1 6 


0':61 01 








ROL 


R1 




4920 


025220 


0C61 01 








ROL 


R1 




4921 


025222 


042701 


177761 






BIC 


A'177761, R1 


;CLR ALL EXCEPT BITS 1.2,3 


4922 


025226 


062701 


172340 






ADD 


fKIPARO, R1 


;SET TO APPFOPRIATE PAR 


4923 


025232 


011101 








MOV 


( R1 ) , R1 


;GET CONTENTS OF PAR 


4924 


025234 


01 2700 


000006 






MOV 


#6, RO 


;SET UP COUNTER 


4925 


025240 


006301 






45: 


ASL 


R1 


;SHIFT PAR 


4926 


025242 


CC61G3 








ROL 


R3 


;SAVE OVERFLOW BITS 


4927 


025244 


077003 








SOB 


RO, 45 


;COUNT SIX SHIFTS 


4928 


025246 


042702 


160000 






BIC 


^160000, R2 


;SAVE BANK BITS 


4929 


025252 


060102 








ADD 


R1 . R2 


; COMPUTE PHYSICAL ADDRESS 


4930 


025254 


005503 








ADC 


R3 


;MAKE SURE CARRV ISN'T LOST! 


4931 


025255 


006302 






IS: 


ASL 


R2 


; FIRST DIGIT TO R3 


4932 


025250 


006103 








ROL 


R3 




4933 


025252 


0-, 2700 


000006 






MOV 


#6,R0 


■.DIGIT COUNT 


4934 


025256 


0C0404 








BR 


35 


;PRINT FIRST DIGIT 


4935 


025270 


00 6302 






25: 


ASL 


R2 




4936 


025272 


0C61 03 








ROL 


R3 




4937 


025274 


0C5301 








DEC 


R1 




493B 


025276 


0C1374 








BNE 


25 




4939 


0253C0 


01 2701 


000003 




35: 


MOV 


/?3,R1 


;DIG1T SHIFT COUNT 


4940 


C2S304 


0527C3 


000060 






ADD 


#60, R3 


;MAKE IT AN ASCII DIGIT 


4941 


025310 


1 1 0367 


000036 






MOVB 


R3, OS 


; LOAD DIGIT INTO MESSAGE 


4942 


025314 


004567 


1761' 2 






USR 


R5, SPRINT 


•,G0 PRINT OUT THE FOLLOWING MESSAGE. 


4943 


025320 


025352 








.WORD 


85 


; ADDRESS OF MESSAGE TO BE TYPED 


4944 


025322 


0050C3 








CLR 


R3 


; CLEAR INDEX 


494 5 


025324 


005300 








DEC 


RO 


;DEC DIGIT COUNT 


4 946 


025326 


00 1360 








BNE 


25 




4947 


C25330 


0: 2603 








MOV 


(SP) + ,R3- 


; ; POP STACK INTO R3 


4943 


C25332 


01 2602 








MOV 


(SP)+,R2 


; ; POP STACK INTO -2 


4949 


025334 


0'. 2601 








MOV 


(SP)+, R1 


; : POP STACK INTO Rl 


4950 


025335 


01 2600 








MOV 


(SP)+,R0 


; ; POP STACK INTO RO 


4951 


025340 


01 2616 








MOV 


(SP)+. (SP) 


; ADJUST THE STACK TO CLEAR DATA 


4952 


025342 


0C;45€7 


176144 






dSR 


R5, SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


4 953 


025346 


0270C5 








.WORD 


FILL2 


; ADDRESS OF MESSAGE TO BE TYPED 


4 954 


025350 


000207 








RTS 


PC 


; RETURN 


4 955 


025352 


000 






as: 


.EYTE 





;ONE DIGIT MESSAGE BUFFER 


4956 


025353 


000 








. BYTE 





;MESSAGE TERMINATOR 


4957 
4958 












.SBTTL 


STANDARD PROGRAM 


MESSAGES 


4959 


















4 96C 










•,VA?!10US MF'-^SAGE PRINTOUTS USED 


THRUOJT 


4951 










;TH£ PkCGRA;v1 






4962 


















4963 


025354 


00501 5 


0521 13 


030461 


MMAMES 


.ASCI2 


<1 5X1 2> ' KT1 1 (1/ 


EMORY MANAGEMENT) AVAILABLE' 


4964 


025362 


024040 


042515 


047515 
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§TANDASp PRQGBAM MESS/^QES 



MEMMpS: .ASCI'g <1 5><1 2> ' MEMORY MAP : ' 
9YTMES: .ASCI^ <15><12> ' BYTE MEMORY MAP: ' 



■OMCF. 


P1 1 1 


4-FE8-7a 


oa: 19 




4955 


025370 


054522 


046440 


047! 01 


4956 


C23376 


043501 


046: 05 


u47l OS 


4967 


025404 


P24524 


04O44O 


04Q525 


4968 


0^:54 1 2 


0461 1 1 


041 101 


0425'4 


4969 


025420 


000 






4970 


025421 


015 


046412 


046505 


4971 


025426 


051 117 


Q20131 


040515 


4972 


025434 


035120 


000 




4973 


025437 


015 


041012 


052131 


4974 


C25444 


C20105 


Q42515 


047515 


4975 


025432 


C5452? 


046440 


0501,01 


4976 


02:^450 


0C0072 






4977 


025462 


005015 


040520 


0445^2 


4978 


C23470 


054524 


0464- i 


046505 


4979 


025476 


05 1 1 17 


020131 


040515 


^9B0 


025504 


035120 


OOQ 




4981 


025507 


015 


043C12 


0475^2 


4982 


025514 


0201 15 


000 




4983 


Q25517 


04Q 


047524 


000040 


4984 


025524 


005015 


0471 ] 1 


052523 


498p 


025532 


043106 


04151 1 


042S1 1 


49P6 


025540 


052116 


046440 


046505 


4987 


02554B 


051 1 17 


027131 


0270 56 


4983 


025554 


044505 


051922 


^20124 


4939 


025562 


0^3061 


0201 13 


047^16 


4990 


025570 


020124 


046101 


0^01 14 


4991 


025576 


044124 


051105 


62wj05 


4932 


025504 


000 






4993 


025605 




04701? 


920117 


4994 


02561^ 


0^.0520 


04452? 


054524 


4995 


025620 


051040 


043506 


05 1511 


4996 


02562S 


0--.2524 


051522 


043040 


4997 


025634 


05 2517 


0421 16 


COO 


4998 


025641 


01s 


051012 


051505 


4999 


2'; 646 


040524 


0521^2 


0471 1 1 


5000 


025654 


020107 


043101 


042524 


5001 


025 662 


0:0122 


020101 


047520 


5002 


025570 


042527 ^ 


020122 


O405O6 


5003 


025676 


0461 11 


051125 


C96505 


5004 


025704 


CC0C12 






50P5 


025706 


C05015 


P47516 


050040 


5006 


C25714 


051 101 


0521 1 1 


0201 3t 


5007 


025722 


05110^ 


047522 


051522 


5008 


025730 


p430 


652517 


0421 19 


5909 


025736 


047440 


9201 15 


042515 


5010 


025744 


047515 


054522 


951440 


501 1 


0257B2 


040503 


006516 


coocia 


5012 


025760 


005015- 


051120 


043517 


5013 


025766 


e-;o522 


020115 


047516 


5014 


025774 


020127 


042522 


044533 


5015 


O25O02 


C "2504 


020i;23 


040502 


5016 


02S010 


045503 


040440 


020124 


5017 


026016 


020060 


047524 


034049 


5018 


026024 


113 






5019 


026025 


015 


04401;? 


05211 1 


5020 


026932 


041440 


047117 


0445?4 



MTWAP: ,ASCI? <15><1 2> ' PAR JTY ^lEWR^ MAP: ' 



FRO^: .ASCIZ <15>1C12?'' FROM ' 
Tp: .^%L.Z ' TO 

|N§)JFF; .ASCI? <15><12>' INSUFFICIENT MEMORY, FI^.S? 16K NOT Al-L THERE!' 



. ASCIZ <15><12;?'N0 PARITY REqiST^RS FOUND' 



PWRM^q: .ASCI^ <15><:12> 'RESTARTING AFTER A PqwER FAI LURE ' <1 5X1 2> 



.ASCI2 <15><12>'f^p PARITY ERRQR? FOUND ON IVjEMQRY SCAN' <1 5X1 2> 



PROREU: ./^qil <15><12>' PROGRAM NQW RESIDES BACi^ AT Tp 8K ' 



.ASCi:? <l5><12>'HiT CONTINUE FOR NORMAL RyN^f ING ' <1 5>51 2> 



) 



CZOMCPO Ct124K VEMORY EXERCISER, 1 6K VER MACm 39A(1052) 20-FEp-79 97:56 PACE lOt 



:OMCF. 


f • 1 1 1 


l4-FEaT-7$ 


08: 19 




STANpARp 


PSQuRf M. MESSAGES 


5021 


02T040 


■ 05221S 


OPOIO5 


047595 








5022 


025045 


02012? 


04751Q 


946522 








5023 


02G054 


046101 


051040 


047125 








5024 


025P52 


04 4516 


043516 


095015 








5025 


026070 


COO 












5026 


026071 


015 


951012 


94?"Q5 


MXi: 


.ASCIZ 


<15><12- 'REGISTER AT ' 


5027 


025076 


05 151 1 


942524 


0291 22 






5023 


0261 04 


052101 


000040 










5029 


0261 1 


041440 


0471 1 7 


051 124 


Mp: 


,ABCIZ 


' CONTROL^ ' 


5030 


0261 1 S 


0-.61 17 


0201?3 


060 








5031 


0261 23 


015 


041412 


051 1 '7 


MX3: 


.ASCIZ 


<15><;i2^'£PRE PARITY ' 


5032 


0361 30 


c;oi 5 


040520 


-!44523 








5033 


025136 




000040 










5034 


0261 42 


cc^o 


047515 


0201 23 


f^: •■ : 


.ASCIZ 


<15><12>'M0S PARITY ' 


5035 


0!3cl 50 


0- Oa, 


©44522 


054524 








5035 


02cl56 


Ov'OO^O 












5037 


0-6160 




051515 


030461 


MX5: 


.ASCU 


<15><12> 'MSI ItK CSR ' 


5038 


02 6-: S6 


C.-545S 


041449 


051 123 








5039 


Q2G1 74 


OC0040 












5040 


0261 76 


051515 


0' > 461 


045455 


Mxe: 


,A5CIZ 


'MS11-K MEMpRY PRESENT!! TO COMPLETELY TEST RUN DZMML 


5041 


02G204 


P46440 


0' 505 


051 117 ' 






5042 


02-5212 


020131 


0- 1 120 


0B15O5 








5043 


' P2G220 


C-'7105 


0205^4 


020:41 








5044 


026228 


0-75-;4 


941440 


04651 7 








5045 


026234 


046120 ■ 


052105 


046 :-5 








5046 


026242 


C2C131 


042524 


. 052. .i3 








5047 


026250 


C? 1 040 


047125 


042040 








5043 


026256 


0-6532 


0461 15 


027C56 








5049 


026264 


CCQ056 












5050 


023365 


OC5015 


O475I6 


046440 


NQMEM: 


.ASC|Z 


<1p><l2>'Np MEMORY FOUND,' 


5051 


C36274 


C 6505 


0^11 17 


020131 








5052 


026302 


047506 


047125 


0271 04 








5053 


0263 10 


ceo 












5054 


263 1 1 


015 


005012 


044412 


FADMES; 


.ASCM 


<15><12><12><12> ' INPUT ALL PARAMETERS IN OCTAL.' 


5055 


026316 


0501 16 


052125 


040440 






5056 




C--61 14 


^50040 


051 101 








5057 


02e332 


0';55C1 


052105 


051 105 








5053 


02o340 


020123 


0471 1 1 


947440, 








5059 


V 46 


0i21C3 


046101 


CS6 








50S0 




015 


042012 


051 1 1 1 




.ASCI2 


<15><12>'FIRST ADDRESS: ' 


5051 


C. .'.60 


C521S3 


040440 


r4?1 04 








5062 




042522 


05rj23 


020:72 








5063 


374 


. 004 










t Cu4 




005015 


040514 


93: 1 3 


l^AOMES: 


.ASCIZ 


<15><12> ' LAST ApORESSt 


S005 


- ,C4 


04 044 


04 2104 


042522 








bOba 




C: 1533 


020072 


020 








1067 




oco 












bOoti 


t/Db42 1 


Q15 


P37412 


0421 01 


BADADR: 


.ASCII 


<15><12>'?ADDRESS IN UNMAPPED BANK?' 




. 2 ' 42t3 


C51 104 


051505 


02c 1 23 








tO/O 


.3.-3 4 


0h71 1 1 


052440 


046516 








5071 




C501C1 


042529 


Q2C104 








5072 


r:3,-,M50 


0-.05C? 


O45516 


000C77 








5073 




OC 5015 


042523 


0425 14 


C0N5T: 


, ASCIZ 


<15><12>'SELECT pOf^STANT ; ' 


5074 


' 3 j-.r4 


O12103 


0414^0 


0471 17 








5C75 


G3u472 


0:^2123 


047101 


033124 








i 076 


026500 


OCO 
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C20MCF.P11 14-FE3-78 08:19 STANDARD PROGRAM MESSAGES 



J- ^„„ 






05241 2 


042516 


UNEXPT : 


. ASCII 


<1 5X1 2> ' UNEXPECTED MEMORY PARITY ERROR' 


5078 


02r''0 " 


0"01 30 


04 1 505 


042524 








sn7Q 


02"'" 4 


04' 


042515 


047515 








rnor) 


0o"22 


0^45" "> 


050040 


051 101 








5001 


026530 


0^21 11 


0201 3 1 


051 105 








5082 




04 7522 


0001 22 










S083 


0OG549 




051 120 


0435 1 7 


PkElOC: 


. ASCIZ 


<1 5X1 2> ' PROGRAM RELOCATED TO ' 


5084 


026550 


04 0522 


0201 15 


042522 








5085 




04 7514 


040503 


042524 










025564 




047524 


000^40 








5087 


026572 


' 5 1 5 


047515 


042522 


MTOE ■ 


. ASCIZ 


<15><12>'M0RE THAN ONE PARITY ERROR FOUND.' 


5088 


25600 


05 2040 


04051 


0201 1 6 














020105 


040520 








5090 


0756?4 


044522 


054524 


042440 








5091 


02G622 


051 122 


051117 


O4304O 








5092 


026630 


05251 7 


042116 


000056 








5093 


026636 


OC 50 1 5 


04 1 523 


047 1 01 


SCANM: 


. ASCIZ 


<1 5X1 2> ' SCANNING MEMORY FOR BAD PARITY.' 


5094 


026644 


044516 


043516 


046440 








5095 


026652 


046505 


051 1 1 7 


0201 31 








5096 


026660 


04 7506 


020122 


040502 










026666 




040520 


044522 








5098 


026674 


054524 


000056 












C 25 7 




040520 


044522 


PEWNC: 


.ASCIZ 


<15><12>'PARITY ERROR WILL NOT CLEAR.' 


5 1 00 


025706 


054524 


042440 


051 1 ''2 








5101 




051117 


053440 


0461 11 








5 1 02 


025722 


0201 14 


04751 6 


020 1 24 








5 1 03 


025730 


046103 


040505 


027122 








5 1 04 




000 












51 05 


026737 


1 5 


04701 2 


020 1 1 7 


NOMTST: 


•ASCIZ 


<15><12>'N0 MEMORY TESTED.' 


51 06 


C 26 744 


04 2515 


04751 5 


054522 








5107 


026752 


052040 


051 505 


042524 








51 08 


02676C 


2 7 1 C 4 


000 










51 09 


026763 


1 5 


051412 


04451 3 


SKPMES: 


.ASCIZ 


<15><12> 'SKIPPING TEST #' 


5110 


026770 


0501 20 


0471 ' ! 


0201 07 








5111 


026776 


042524 


0521 23 


021 440 








5112 


027004 


000 












5113 


027005 


377 


000377 




FILL2: 


.ASCIZ 


<377><377> 


51 14 
5115 










.SBTTL 


ERR.] REPORTING MESSAGE^ AND TABLES. 


5116 
















5117 










;« MESSAGE BLOCK FOR ERROR TABLE TYPEOUTS 


51 18 
















51 19 


02701 


0^'.052 


044522 


CS4524 


DM1 : 


.ASCIZ 


'PARITY REGISTER DATA ERROR.' 


5120 


027016 


051040 


043505 


05151 1 








5121 


027024 


042524 


0201 22 


040504 








5122' 


027032 


040524 


042440 


051 1 22 








5123 


027C40 


051 1 17 


000056 










5124 


027044 


0-2101 


051 1 04 


051505 


DM2: 


.ASCIZ 


'ADDRESS TEST ERROR { TST 1 -5 ) . ' 


5125 


027052 


020123 


042524 


0521 23 








5126 


027050 


0424-30 


051 122 


051 1 17 








5127 


027066 


052CE0 


0521 23 


026461 








5128 


027074 


024465 


000055 










5129 


0271 00 


047503 


051516 


040524 


DM4: 


.AbCIZ 


'CONSTANT DATA ERROR ( TST6-1 ). ' 


51 30 


0271 06 


0521 1 6 


0420'30 


0521 01 








5131 


0271 1 4 


0201 01 


051 1 05 


047522 








5132 


027122 


024122 


051524 


0331 24 
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ERROR REPORTING MESSAGES AND TABLES. 



5133 
5134 
5135 
5136 
5137 
5133 
5139 
5140 
5141 
5142 
5143 
5144 
5145 
5146 
5147 
5148 
5149 
5150 
5151 
5152 
5153 
5154 
5155 
5156 
5157 
5158 
5159 
5160 
5161 
5162 
5163 
5164 
5165 
5166 
5167 
5168 
5169 
51 70 
5171 
5172 
5173 
51 74 
51 75 
51 76 
5177 
51 78 
5179 
51 80 
5181 
51B2 
5183 
5184 
51 85 
51 86 
51 87 
5188 



0271 66 



030455 
047522 
04351S 
042440 
052050 
030455 



027174 047515 



027202 
C2721 
027216 
027224 
027232 
027240 



027276 
027301 
027305 



02: 



314 



027322 
027330 
027335 
027344 
027345 
027352 
027360 
027366 
027374 
027402 
027410 
02741 1 
027415 
027424 
027432 
02' 440 



027-G2 
027465 



027514 
C27522 
027: 30 



051 106 
0-2524 
Or 1 122 
051524 
031455 
020063 
020071 

03 1 105 
047522 
030524 
027051 

1 15 
0-71 1 1 
C20123 
023460 
047522 
020124 
000 
1 20 
0201 31 
054522 
042522 
05 1 1 22 
052123 
000 
104 
053440 
051 127 
040520 
0-2040 
02 01 24 
052050 
027051 
1 27 
050040 
020131 

04 25''.0 
052125 
042522 
051 105 
051527 
051 1 17 
0271 07 

1 20 
Ol'Ol 31 
052123 

05 21 1 7 
042520 
041440 



024460 
040'524 
041 040 
051 122 
052123 
024462 
0201 23 
051505 
0521 23 
051 1 17 
0201 24 
024461 
047530 
04052-) 
0201 1 6 
0241 22 
026453 
000 
051 101 
0201 07 
0471 01 
0201 23 
024122 
033462 

051 101 
042515 
040440 
051523 
051 1 1 7 
033461 

0521 01 
0521 1 1 
0471 1 7 
04 4 522 
0421 1 1 
051 124 
052123 

000 
047522 
051 101 
051 124 
0261 04 
047040 
044507 
051 440 
042440 
043040 

000 
051 1 01 
042522 
051 1 05 
046440 
0201 04 
0471 17 



000056 
C44524 
0521 1 1 
051 1 1 7 
0304b1 
000:56 
042522 
0201 10 
042440 
C24C40 
030': 63 
000C56 
0201 22 
0521 24 
051 105 
051524 
033C61 

0441 03 
023461 
0201 04 
051 1 05 
051524 
027C51 

0521 1 1 
04', ^15 
0421 04 
042440 
052C50 
027051 

0501 1 1 
0201 10 
0201 07 
054524 
023516 
050 101 
033161 

043516 
0521 1 1 
050101 
041 C40 
0201 17 
0521 23 
047510 
051 1 22 
040514 

0521 1 1 
044507 
047C40 
C501 01 
051501 
051 124 



.ASCIZ 'ROTATING BIT ERROR ( TST 11 -1 2 ) . ' 



.ASCIZ 'MOS REFRESH TEST ERROR (TST 30-31) 



.ASCIZ '3 XOR 9 PATTERN ERROR( TST1 3-1 6 ) . ' 



.ASCIZ "MARCHING 1'S A1.3 O'S ERROR{TST 27). 



.ASCIZ 'PARITY MEMORY ADDRESS ERROR( TST1 7) . 



.ASCIZ "DATIP WITH WRONG PARITY DIDN'T TRAP(TST17). 



.ASCIZ 'WRONG PARITY TRAPPED, BUT NO REGISTER SHOWS ERROR FLAG. 



.ASCIZ 'PARITY REGISTER NOT MAPPED AS CONTROLLING THIS ADDRESS ( TST 1 7 ) . 



C2QMCF: 


0-12-4K V EMORY 


EXERCISER, 16K 


C20MCF . 


Pll 14-FEB-78 


Oa: 19 




5189 


0'57520 


'61 1 7 


044514 


043516 


5190 


2 7625 


05 2040 


044510 


0201 23 


5191 






051 1 04 


051595 


5192 


027f 4^ 


0''41 23 


051524 


030524 


51 93 




02 4467 


000056 




5194 






042522 


052"40 


5195 




o"" 051 


0201 15 


0471 17 


51 96 


L _ Q 


O" 1 05 


042522 


044507 


5197 




0^21 ''3 


051 105 


044440 


5198 


0'^'7704 


0^21 16 


041 511 


052101 


5199 


7 7 1 2 


0^21?^ 


050040 


051 101 


5200 


- - 




020131 


-)51 105 


5201 


027~9 ~ 


0^75"2 


027122 


COO 


5202 




104 


052101 


0201 01 


5203 


02'"740 


' 41 23 


052517 


0421 14 


5204 


0''7746 


02 3516 


020124 


040510 


5203 


027754 


C4 2526 


041440 


040510 


5206 






042105 


053 UO 


5207 


c'77770 


0^2510 


0201 16 


040520 


5208 


^ ~ ^ _ ^ g 




054524 


042440 


5209 




05 1122 


051 1 17 


052':4Q 


5210 


0300 1 2 




050120 


042105 


521 1 


03C020 


05 2050 


052123 


033461 


521 2 


030026 


0270„ 1 


000 




5213 




1 22 


0471 01 


047504 


5214 


0^0035 


0201 15 


C405Q4 


040524 


521 5 


03C044 




051 122 


051 117 


5216 


030052 


052050 


052123 


030C62 


521 7 


030050 




000 




5218 


030063 


1 1 1 


051516 


051 124 


5219 






044524 


0471 17 


5220 


030075 


0-' 2440 


042530 


052503 


5221 


030104 


0-', 4524 


0471 17 


042440 


5222 


0301 12 


05 1 122 


051 1 17 


C52C50 


5223 


0301 20 


05 2123 


030462 


031055 


5224 


030 1 26 


024465 


00005S 




5225 


030 1 32 


051 120 


043517 


040522 


5226 


030140 


0201 15 


047503 


042504 


5?27 


030145 


041440 


04051 


C435 1 6 


5228 


C301 54 


0421 C5 


053440 


042510 


5229 


030162 


0201 1 6 


042522 


047514 


5230 


0301 70 


040503 


042j24 


027104 


5231 


0301 76 


OCO 






5232 


030177 


154 


040522 


0501 '0 


5233 


030204 


C421C5 


020054 


052^02 


5234 


03021 2 


0201 24 


047516 


051 C 40 


5235 


030220 


0435C5 


05151 1 


042524 


5236 


030225 


020122 


040510 


C201 04 


5237 


03C234 


C51 ICS 


047522 


0201 22 


5233 


030242 


C445C2 


020124 


C42523 


5239 


030250 


027124 


000 




5240 


030253 


124 


040522 


0501 20 


5241 


030260 


0421C5 


052040 


0201 17 


5242 


030265 


030461 


0270u4 


000 


5243 


030273 


106 


044501 


042514 


5244 


030300 


020104 


047524 


052040 



VER MACY11 30A{1052) 20-FEe-7a 07:56 

IBROR REPQRUNG MESSAGES AND TAbl.ES. 



.ASCI2 'MORE THAN ONE REGISTER INDICATED PARITY ERROR. 



.ASCIZ "DATA SHOULDN'T HAVE CHANGED WHEN PARITY ERROR TRAPPED( TST 1 7 ) . 



DM20: .ASCIZ 'RANDOM DATA ERROR ( TST2D ) . 



, ASCIZ 'INSTRUCTION EXECUTION ERROR( TST21-26) . 



.ASCIZ 'PROGRAM CODE CHANGED WHEN RELOCATED. 



.ASCIZ 'TRAPPED, BUT NO REGISTER HAD ERROR BIT SET.' 



.ASCIZ 'TRAPPED TO 114. 
.ASCIZ 'FAILED TO TRAP. 



CZQMCFO 


0-1 24K EMORY 


EXERCISER. 16K 


VER 


MACY1 1 


30A(1052) 


20- 


FEBr78 07:56 


PAGE 105 


CZOMCF. 


P11 14-FEB-78 


08: 19 




ERROR 


REPOr<TIKG 


MESSAGES 


AND 


TABLES. 






5245 


030306 


0^0522 


027120 


COO 
















5246 


030313 


050 


041501 


044524 


DM27: 


.ASCIZ 


" (ACTION 


ENABLE WASN'T 


SET) . 




5247 


030320 


0471 1 7 


042440 


040516 
















5248 


030326 


0461^^2 


0201 05 


C40527 
















5249 


030334 


047123 


052047 


051440 
















5250 


030342 


052105 


027051 


000 
















5251 


030347 


015 


052012 


040522 


0iv3l : 


.ASCIZ 


<15><12>'Tf?APPED TO 4 ' 






5252 


030354 


050120 


042105 


052040 
















5253 


030362 


0201 17 


020064 


000 
















5254 
























5255 
















* ♦ * ♦ * 




***n.* 


«*********«******i4i*** 


5256 










;DATA 


COLUMN HEADINGS 










5257 
















***** 


********** 


***** 


********************* 


5258 
5259 


030367 


120 


004503 


042522 


DH1 : 


.ASCIZ 


'PC 


REC 


S/B 


WAS' 




5250 


030374 


004507 


027523 


004502 














5261 


030402 


0-20527 


000123 


















5252 


030405 


027525 


041520 


C50C1 1 


D,H2; 


.ASCIZ 


'V/PC 


P/PC 


MA 


S/B 


WAS' 


5263 


030414 


050C57 


004503 


040515 
















5264 


030422 


05141 1 


041057 


05341 1 
















5265 


0304 30 


051501 


000 


















5266 


030433 


126 


050'i57 


C J4503 


DH12: 


,4SCIZ 


'v/pq 


P/PC 


MA 


S/B' 




5257 


030440 


027520 


041520 


04641 1 
















5268 


C30446 


0C4501 


027523 


0001 02 
















5269 


C30.:54 


027526 


041520 


050 C . 1 


DH1 4: 


.ASCIZ 


'V/PC 


P/PC 


REG 


MA' 




5270 


030462 


050057 


004503 


042522 
















5271 


030470 


0C4507 


040515 


COO 
















5272 


030475 


126 


050057 


004503 


DH15; 


.ASCI-7 


'v/pq 


R/PC 


MAUT 


REG 


S/B WAS' 


5273 


030502 


027520 


041520 


04541 1 
















5274 


03C510 


0^2501 


004524 


042522 
















5275 


030516 


004507 


027523 


C04502 
















5276 


030524 


040527 


000123 


















5277 


030530 


027526 


041520 


05001 1 


DH21 : 


.ASCIZ 


'V/PC 


P/PC 


lUT 


MA 


S/B WAS' 


5273 


030535 


050057 


0045^3 


05251 1 
















5279 




004524 


040515 


05141 1 
















5230 


'^^^ 


C 1C-7 


05341 1 


051501 
















5281 




000 




















5282 




12b 


05C057 


004503 


DH23: 


-ASCIZ 


'V/PC 


P/PC 


SRC MA 


DST 


MA S/B WAS' 


5283 


C - D 


C27520 


041520 


05141 1 
















5284 




1522 


046440 


004501 
















5205 


b 2 


0^1504 


020124 


040515 
















^ 2 1 ■> 


< 1 


05 141 1 


041 057 


05341 1 
















5287 


i 1 b 


051501 


000 


















5- 3-1 






050057 


004503 


DH24: 


.ASCIZ 


'V/PC 


P/PC 


TRP/PC 






5289 


C ^ 


J " ..0 


041520 


C5201 1 
















> 


C 30 634 


i. 0122 


050057 


COOl 03 
















5291 






041520 


05. - 1 1 


DH2S: 


.ASCIZ 


'V/PC 


P/PC 


TRP/PG 


REG 


WAS' 


•^2i:> 


030S50 


I 7 


004503 


051 1 24 
















3293 


I, U'^D 


."5 


041520 


051 C 1 1 
















SC34 




C ^Cb 


05341 1 


051501 
















5295 




coo 




















' ^ >6 


020673 




050057 


C045 j3 


pH2$: 


.ASCIZ 


'V/PC 


p/pp 


REG 


WAS ' 




52'>7 


030700 


0^75 


041520 


J 5 1 CI 1 
















52 iB 


03C706 


043505 


05341 1 


C51501 
















5299 


030714 


000 




















5300 


03071 5 


1 22 


043505 


0534 1 1 


DH30; 


.AS. 12 


' REG 


WAS 


MA 


WAS' 
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ERRQR REPORTING MESSAGES AND TABLES. 



5301 


030722 


051501 


0464 1 1 


00450 1 










5302 


030730 


040527 


• 000 i 23 












5303 


































Itr ,tr .« W 4^ 41 <«> 


5305 










;» DATA 


FORMAT 


TABLE FOR ERROR 


5306 














> « Oiit! 01 .« >K « 




5307 


030734 


000 


377 


000 


DF1 : 


.BYTE 


0,-1,0, 





5308 


030737 


000 














5309 


030740 


000 


377 


377 


DF2: 


.BYTE 


0,-1 ,-1 


,0,0 


5310 


030743 


000 


000 












531 1 


03C745 


000 


377 


377 


DF3: 


.BYTE 


0,-1 ,-1 


,-2,-2 


5312 


030750 


375 


376 












5313 


030752 


000 


377 


377 


DF14: 


.BYTE 


0,-1 ,-1 


,-1,0,0 


5314 


030755 


377 


OC ) 


000 










5315 


030760 


000 


377 


000 


DF21 : 


.BYTE 


0,-1,0, 


-1,0,0 


5316 


030763 


377 


000 


ODD 










5317 


030766 


377 


COO 


377 


DF30: 


.BYTE 


-1 ,0,-1 


,-2 


5318 


030771 


376 














5319 












.EVE J 






5320 


















5321 




0321 10 






. » 321 10 






5322 


















5323 




000001 








.END 







;THE LOADERS ARE SAVE HERE TO END OF 8K 



CZQMCFO 


0-1 24K N^EMORY 


EXERCISER, 16K 


C20MCF. 


P11 14-FEB-7B 


08: 19 




ABASE = 


000000 


384 


425 


ACDW1 = 


000000 


384 


427 


ACDW2 = 


OOGOOO 


304 


428 


ACPUOP- 


CCOOOO 


384 


399 


ADDWO = 


000000 


384 


429 


A0DW1 = 


000000 


384 


^10 


ADCW1 0=. 


OCOOCO 


384 


439 


ADDW1 1 = 


000000 


334 


440 


ADDW12= 


COOOOO 


384 


441 


a::'Dwi3 = 


GOOOOC 


384 


442 


ADDW1 4= 


OOCOOO 


384 


443 


ADDW15= 


OOOOOC 


384 


444 


ADDW2 


OOCOOO 


384 


431 


ADDW3 = 


000000 


384 


432 


AD0W4 = 


000000 


384 


433 


ADDW5 = 


ODOCOO 


384 


434 


ADDWS ^ 


OOOCCO 


3S4 


435 


A DDK 7 ^ 


000000 


384 


436 


ADDW8 = 


OOCOOO 


384 


437 


ADDW9 = 


OCOOOO 


384 


438 


ADEVCT-^ 


000300 


384 


390 


ADEVM = 


CCOOOO 


384 


426 


AE 


C 1 


1 79/^ 


2433 


AENV = 


OOCOOO 


384 


395 


AENVM -■ 


COOOOO 


334 


396 


AFATAL= 


000000 


384 


387 


AMADR1 = 


GOOOOC 


384 


412 


AMAD^2-- 


000000 


384 


416 


AMADR3:-- 


ooocoo 


384 


419 


A-v^ADR4 - 


ooccco 


384 


422 


AVAM51 = 


occooo 


384 


4C6 


Ar.1AiV,S2 = 


OCOOGO 


384 


414 


A-.1AMS3- 


ooocoo 


384 


417 


Ar,'1AMS4^ 


CCOOOO 


384 


420 


Ai.'SGAD; 


COOOOO 


384 


392 


a'.'SG:-G--- 


OOOOOC 


384 


393 


A".':j3TY.: 


COCOOO 


384 


386 


A'^YPI 


OCOOOO 


284 


407 


A'.'.T Y?2 = 


COOOOO 


384 


415 




COOOOO 


384 


418 




OOCCOC 


384 


421 


APAS.S - 


OCCOOO 


334 


369 




CCOOOO 


384 




APTCSU^- 


000040 


4598 


47" M 


AP 1 ENV-. 


00000 1 


4187 


45-^1 


APTSl Z^^ 


000 2 00 


676 


4736# 


APTSPD - 


UCD1C0 


4593 


46S1 


ASl>. REG:: 


CODOGO 


334 


397 


A T L s r ;g ^ 


C DCCOO 


334 


333 


AUNIT 


CCCOjO 


384 


39 I 


AuSl'.R ; 




334 


393 


A\, ECT 1 


COOOOO 


384 


423 


AVECT2:: 


OCOCCO 


2S4 


424 


BADADR 


026-^21 


1 44u 


506a# 


CANKNO 


0161 30 


1632 


1641 


BITPT 


001544 


522# 


1 134* 



VER MACY11 30A(1052) 20-FEB-7a 07:56 

CROSS REFERENCE TABLE — USER SYiVIBOLS 



4659 4737// 
473S# 



1667 1677 3397ff 
1135* 1 171 1 172 



C20MCF0 



3IT0 = 000001 



BITOO ^ 

BIT01 : 

BITO? = 
BIT03 = 
BIT04 = 
BIT05 : 
B1T06 ; 
BJT07 = 
BIT08 = 
BIT09 = 
0IT1 = 
BIT10 = 
BIT11 = 
PIT12 = 
BIT13 
BIT14 -. 
BITip = 
BIT2 = 
B1T3 = 
BIT4 = 
BITS = 
PITS r 
BIT7 = 

BITS 

BIT9 = 
BLKMSK 
BPTVEC= 

CASFLG 

CASREG 

CKPMER 

CLRPAR 

COMST 

CR 

CRIF = 

CTRLS 

DDI$P = 

DF1 

DF14 

DF2 

0F21 

DF3 

DF30 

DH1 

DH12 

DHl4 

DH15 

DK2 

DH21 



000001 
000002 
OC0004 

ococio 

000029 
0COC40 

pool 00 

0C0200 
000400 
001000 
OCOOG? 
00.7000 

oo-;ooo 

010000 
02O0O0 
040000 
1 00000 
O0OOP4 
000010 
OC0020 
00004P 
000100 
000200 
000400 
001 000 
001606 
OOC014 
025437 
001616 
001620 
017536 
020270 
02645(5 
000015 
00C2P0 
005072 
177570 
030734 
030752 
030740 
030750 
030745 
030763 
030367 
030433 
030454 
030475 
030405 
030530 



24K V.EMORY EXERCISER, 
14r-FEB-78 08: i9 

2409 
3173 
3238 
3317 
3366 

123# 
37^7 
1 13* 
1 12^^ 
1 11 * 
110* 
109* 
108* 
107* 
106* 
105* 
104* 
122* 
103* 
102* 
101* 

iro* 
99* 

98* 
1 21 * 
120* 
1 19* 
118* 
1 17* 
1 1)5* 
1 15* 
114* 
547* 
13' ' 
1033 
551* 
552* 
1755 
11 33 
1458 
38* 
39* 
1273 
45* 
719 
774 
724 
800 
729 
831 
717 
762 
772 
777 
722 
798 



tfiK VER 

CROJ 
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56 PAGE 109 



241 1 
3192 
3259* 
3319 
3400 
235 
38 CO 
123 
122 
121 
120 

118 
1 1 7 

116 
115 
114 

4173 
4p39 

3174 
217 
248^^ 



3151 

4973* 
937* 
1485* 
241 7 
12C8 
5073* 
4537 
9C6 
1283* 

361 
53C7* 
779 
.34 
5315* 
759 
836 
5259* 
7§7 
732 
5272* 

727 
5277* 



2467 


2469 


3148* 


3149* 


3156 


3158 


3161* 


3162* 


2165 


3167 


31 72 


3195* 


3198 


3199 


321 3 


3214 


3215 


3217 


3226* 


3227* 


3231 • 


3236 




3262 


3264 


3266 


3258 


3272 


3^73 


3303* 


3305 


3307 


3310 


?324 


3325 


3340 


3342 


3350* 


3351 * 


3353 


33^5 


3360* 


3362 


3364 


3401 






















251 


1039 


1213 


13S9 


1380 


1470 


1491 


2456 


2485 


2501 


3148 


^>931 


4079 





















4022 

4032 



3331 
3804 



4647 
4608 



784 
739 



5269* 



4^01 



3201 3274 
4008 

3226 3527 



3560 
3322 



3759.V 
38'. 3'. 

46^7 



806 
744 



811 
749 



816 
754 



5313* 
7^5 



CZOMCFO 0-124K f.^EMORY EXERCI|ER, 1 6K V|R MACY1 1 30A(1052) ^0-FEP-7a 07:56 
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DH23 

DH24 

DH25 

DH26 

DH30 

DiDBH 

DIDBL 

DIDO 

DI PDO 

DI5PLA 

DISPRE 

DM1 

DV.IO 

DM1 1 

0M1 2 

DM13 

DM 1 4 

DM 1 6 

DM 1 7 

0M2 

Drvi20 

DM2 1 

D"»fl23 

PM24 

DM25 

DM26 

DM27 

D'vl31 

p,V;4 

0^.5 

D7.6 

DM7 

DONE 

DPDBH 

DPD3L 

DSWR = 

DTI 

DTI 2 

DT 1 4 

DT15 

DT2 

DT21 

DT23 

DT24 

DT^'5 

PT26 

DT30 

DT31 

EWTVEC-- 

ENDINS 

ERRTRP 

ERRVECs 

FADMAP 

FADMES 



030551 
030521 
03C642 
030673 
030715 
012772 
012700 
012610 
013070 
001 142 
0001 74 
027010 
027301 
027345 
02741 1 
027465 
027555 
027654 
027733 
027044 
03C031 
030063 
03Q132 
0301 77 
030253 
030273 
030213 
030347 
0271 00 
027136 
027174 
027240 
013776 
01 3254 
01 31 62 
1 77570 
001 545 
001674 
001 705 
001 720 
001 650 
001 736 
001 7 54 
001 772 
CC2C.C2 
002010 
002030 
C 02 042 
GC0030 
02u;24 



001570 
P2631 1 



804 
8O9 
814 
819 
829 
271 1* 
2662* 
2613* 
2761* 
361* 
1S5* 
716 
751 
756 
761 
766 
771 
781 
785 
721 
792 
797 
803 
808 
813 
818 
823 
833 
731 
736 
741 
746 
3038* 
2659* 
2310* 
44* 
573* 
577* 
579'' 
581* 
575* 
5U4w 
587* 
590* 
552* 
■ 594* 
596* 
593^ 
133* 
4053 
20d 
1 25* 
35S8* 

54v-r^ 

4111 

1 374 



5282* 
5238* 
5291* 

824 
5330* 



864* 
872 
776 
•515'.* 
5158* 
5165* 
5173* 
5193* 
5194* 
5202* 

726 
5213* 
5218* 
5225* 
5232* 
5^40* 
52 13* 
5246* 
6251* 
5i;29* 
5134* 
5139* 
5145* 



360 
718 
763 
773 
773 
723 



815 
820 
830 
835 



2C5 
364 1* 
1421 * 



872* 881* 3594* 3647* 4054* 4172* 
6119* 



7SS 
733 



661 
3661 ♦ 
1422* 



3685 

862- 
3685- 
3215 



4889* 

873* 927t 

4013 4014* 

3217 3340 



93s* 
4016* 
3342 



9p4* 
4019* 
3364 
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FADMSK 


001565 


538)!' 


3368 


41 34* 


4136* 




















FI LL2 


027005 


4953 


51 1 3* 
























FLAG8K 


001557 


532# 


3207* 


3297* 


3300* 


331 8* 


















FROM 


025507 


1046 


3951 


49B1 # 






















F ST ADR 


001552 


535# 


1357 


1455* 


3744 


4065 


















GMPR 


004072 


1013 


1093* 
























GMPRA 


0041 20 


1 098* 


1110 
























GMPRB 


0041 34 


1097 


1 1 04# 
























GMPRC 


004142 


1 1 02 


1 1 C6# 
























GMPRD 


004202 


1 095 


1 1 1 a# 
























GNS 


u 


1 94 


905 
























HT 


00001 1 


36# 


4606 


4647 






















IMPCHE= 


1 77746 


186/^ 


939* 
























IMPCK 


003272 


926 


927 


936# 






















INITON 


015064 


1 528 


1 564 


1 591 


1 666 


1 676 


2:-22it 
















INITEX 


015176 


3218 


3220 


2239 


324 1 1- 




















I N I TMM 


1 4426 


1511 


1 554 


1 602 


1 631 


1 640 


1 708 


II 












inao 




1 929 


1 940 


1 983 


2032 


2043 


2091 


221 7 


2228 


2276 






or 1 r 


ORfiR 






2714 


2764 


28 1 3 


2662 


2905 


2958 


2977 


2990 


3010 


3023 


3148* 


341 7 




INSERT 


021 1 24 


4056*' 


























IMSUFF 


025524 


1015 


4934# 
























10TVEC= 


000020 


1 "1 


























K1PAR0= 


1 72340 


166/if 


242 


261 * 


31 33* 


3554* ■ 


3620* 


4922 














KIPAR1 ^ 


172342 


1 67?sr 


26"" 


31 34* 


3555* 


3621 * 


















KIPAR2= 


1 72344 


1 68^ 


975 


995* 


1 7 2 * 


1 1 81 * 


1 1 85 


2484 


3135* 


31 54* 


31 60* 




3228* 


3258* 






3276 


3349* 


3331 


3536^ 


3539* 


3554 


361 5* 


3809 


381 0* 


3849* 


3854* 






KI PAR3= 


1 72346 


169# 
361 6* 


1 069 


1 072 


1 073* 


31 36* 


31 71 * 


31 76* 


3276* 


3277* 


3525* 


3528* 


3536 


3555 


KIPAR^^ 


1 72350 


1 1QH 


31 37* 
























KIPAR5-- 


1 72352 


1 71 # 


3138* 
























KI PARd- 


1 72354 


1 72# 


31 39* 
























KIPAR?--. 


1 7235S 


1 73# 


31 50* 
























KIPDRO= 


1 72300 


1 55*^ 


237 


31 25* 






















KI PDR1 = 


1 72302 


1 5i. .' 


3126* 
























KIPDR2= 


1 723C4 


1 57# 


31 27* 
























KI PDR3 :: 


1 72306 


1 SdiH 


3128* 
























K I PDR4= 


172310 




























KIPDR5=^ 


1 7 2312 


160* 


3130* 
























K1PDR6= 


172314 


161# 


31 3 1 * 
























KIPDR7= 


1 72316 


162# 


3132* 
























LADMAP 


001 502 


546* 


1449* 


1450* 


1473> 


1474* 


3165 


3167 


3184 


3186 


3199 


3208 


3236 


3238 






3250 


3252 


3266 


3268 


3285 


3287 


3307 


3317 


3319 


4107 


4108 


4109 


41 1 1 


LADMES 


026376 


1401 


5064# 
























LAutvlSK 


001600 


544* 


3169 


318S 


3210 


3270 


3289 


3309 


3321 


4139* 


4141 * 








LDDISP. 


001 522 


508# 


830* 
























LF 


000012 


37# 


4641 


4647 






















LMAD 


001520 


507# 


3uj3 


3670* 


3677 


3691 * 


















LSTADR 


00 1574 


541 # 


1353* 


1413* 


1417 


1428 


1467* 


1468* 


146S* 


1470* 


1471 


3240 


4074 


4081 


MAMF 


01 7536 


1488 


254 6 


3736# 






















MAMFI 


01 7622 


3750*r 


3752 
























MAWF2 


017634 


3737 


3739 


3745 


3754;^ 




















MANUAL 


CC5366 


1119 


1274 


1343 


13 = 3^-' 


1448 


















MANUL1 


005424 


1362 


1369# 
























MANUL2 


006026 


1364 


146B# 
























MAPMEM 


003324 


938 


952# 
























MAPRB 


004250 


1 138 


1 143# 

























CZQMCFO 
CZOIVICF . PI 

iMASK4K = 
MEMMAP 

MEMMES 
MM AMES 
MMAVA 



MPRO 
MPR1 
MPR1 
MPR1 1 
MPR12 



MP 



:13 



01 7777 
001 524 

025421 
025354 
000606 



MMDOV'JN 015674 

MMINIT 014300 

MMORE 001554 

MMUP 015204 



MivlVEC = C00250 

MPAMEM C04210 

MPEND 002074 

MPPATS 0C2050 

MPRX 002276 



MPR14 

MPR15 

MPR2 

MPR3 

MPR4 

MPR5 

MPR6 

MPR7 

MPR8 

P^PR9 

MTMAP 

MTOE 

m R 

m 1 

WX3 
MX 4 
MX 5 
MX 6 
NOMEM 
NOV, T ST 
NOPES 
0£.F LG 
PAR VEC^ 
PBTRP 
PESRV 
PEWNC 
PHYADR 
P I RO = 
PIRQVE^: 



002076 
0021 06 
0022 1 6 
002226 
002236 
002246 
002256 
002266 
0021 16 
002126 
0021 36 
002146 
002 1 56 
002 1 66 
0021 76 
002206 
025452 
023572 
025605 
026071 
0261 10 
0251 23 
0261 42 
0261 60 
0261 76 



026266 
02o737 
025706 
001 560 
0001 14 
1 2052 
1 74 30 
0267G0 
1 6054 



EXERCISER, 16K 


VER 


MACY1 1 


30A(1052) 


20-1 


FEB-7a 07; 


;56 PAGE 


112 










08: 19 




CROSS 


REFERENCE 


TABLE — 


USER 


SYMBOLS 












SEO 


183# 


966 


991 


1065 


1419 


1471 


3212 


3323 


3842 


4098 


4105 


4134 


4139 


2^0 


5C9(!^ 


953 


954 


1 192 


1 194 


1 197 


1394 


1396 


1435 


1437 


1440 


1442 


3532 


3534 


3543 


3545 


3565 


3570 


3812 


3814 












962 


497' * 
























932 


49i^3# 
























233 


290# 


924* 


930* 


972 


993 


1024* 


1030* 


1067 


1137 


1 179 


1451 


1465 


1489 


2431 


3152 


3224 


3255 


3347 


3378 


3523 


3613 


3662 


3671 


3807 


3847 


491 1 


























1540 


1576 


1598 


1672 


1633 


3234 


3340;^' 














929 


1029 


1 140 


1 493 


3124# 


















528# 


3232* 


3233* 


3241 * 


3326 


3369 
















1524 


1 560 


1616 


1 636 


1651 


1712 


1733 


1769 


1792 


1815 


1831 


1874 


1917 


1933 


1977 


2020 


2036 


2084 


2204 


2221 


2259 


2389 


2545 


2580 


2630 


2679 


272L 


2778 


2827 


2877 


2959 


2983 


3003 


3016 


3036 


3250# 


3421 






144fS* 


























1114 


1 133f 

























61 7# 
565 
563 
3329 
562 
636# 
672* 
676* 
680* 
684* 
688* 
692* 
640* 
644* 
648* 
652* 
656* 
660* 
664* 
663* 
1210 
3719 
1116 
1234 
1 242 
1218 
1 224 
1230 
1 271 
3923 
4077 
3861 
533* 
1 80* 
564 
566 
3636 
1512 
43* 
1 37* 



697* 
3736 
632* 



1 187 
1 189 



4977* 
5087* 
4093* 
5026* 
5029* 
5031* 
5034* 
5037* 
5040* 
5050* 
5 1 OS* 
50C3* 
2428* 
2442" 
2453* 
3699* 
5099* 
1529 



1093 
3759 
1095 



1253 
1257 



1 1 09 
1 150 



1255 
1259 



1113 
1212 



1256 
1260 



1 176 
1283 



1262 
1266 



1248 
1328 



1265* 
1269* 



1261 
1337 



2E3B* 
2446* 



2QMCF0 
ZOMCF . 
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p;,1EMAP 


001 540 


519* 


PSELOC 


026542 


3506 


PRGMAP 


000502 


253 






3601 * 


PROREL 


025750 


5012<? 


PRO 


OOCOOO 


60# 


Pr?1 


0CG040 


61# 


PR2 


0001 00 


62* 


PR3 


0G0140 


63* 


PR4 


CC0200 


64 V 


PR5 = 


000240 


65* 


PR6 


0CC30C 


66* 


PR7 


000340 


67# 


PS 


1 77776 


40* 


PSCAN 


01 7744 


3725 


PSW 


1 77776 


41 # 






4199 


PWRMSG 


25641 


326 


PWRVEC= 


000024 


132fi* 


RADTA3 


031622 


559# 


RANTST 


01 2470 


2553^ 


RELOC 


01 5336 


3481# 


RELOCF 


000500 


269 






4237 


RELTOP 


016460 


3055 


RELO 


01 7062 


276 


RE3CHK 


005252 


1289 


RESLDR 


01 7270 


282 


RE5RVD 


001516 


505# 


RESTAR 


000300 


201 


RESTOR 


000304 


202 


REST1 


000306 


227 


REST2 


000324 


231 


R£SVEC:= 


000010 


127# 


ROTATE 


016210 


1 781 


RJ 


000006 


176# 


SAVLDR 


01 7350 


921 


SAVTST 


001534 


51 5# 


SCAMM 


02 (-6 36 


3798 


SELECT 


002646 


199 


SELFLG 


001556 


531;^ 


SETAE 


01 7502 


24 -.6 


SETCON 


0161 70 


1 778 


SKPMES 


026763 


4121 


SPnNT 


020312 


1 298 


SPRNTA 


02C-:!.00 


3901 


SPRNTB 


0204C4 


3693 


SPRNTP 


020336 


2471 


SPRNTO 


020324 


3722 


SPRNTO 


020342 


1309 


SPRNT1 


020350 


1645 


SPRNT2 


020366 


1517 






1946 






211- 






2255 






2570 



503?# 

254 
361 



289'? 
3651 * 



91 1 * 
4084 



912* 
4085 



1256* 
3043 



1259* 
3045 



1260* 
3049 



2409 
3517 



241 1 
3549 



3773 
839 

4233 

499a# 
295* 

3595 

3551 

288** 
4258 
351 7M 
3059 
1328# 
3062 
551 
226# 
228^* 
229# 
233^ 

18:4 

3125 
31 CO 
1003* 
5093* 
846** 
844* 
374 1 

lac 1 

51' ^ # 

1315 

39C5 

391 1 # 

2492 

3769 

1534 

3903;^ 

16C9 

1953 

2122 

2282 

291 5 



3778 
1239 
4266 


37394 
13/ a 
4273 


1405 
4236 


1462 
4332 


3091 
4431 


3962 
4517 


3970 
4563 


4004 


4127 


4148 


4167 


29S* 
5634 


305* 


31 1 * 


323* 


324* 


856* 


857* 


3589* 


3642* 






3580 

913* 
4250 


3617 
1487 
4560 


3627 
3233 
4764 


3583* 


3587* 


3596 


3604 


3625 


3649* 


3740 


4066 


?61 






















3659** 
1232* 
328 


1296 
910 


1301 


1306 


1314 


2486* 


2487 


2488 


2517 






342e«' 
31 26 
3677« 
1 009* 


3127 
1381* 


3128 
1382* 


3132 
• 1423* 


1424* 


3043 


3045 


4082 


4083 






846* 
3743 
2407 


1361 
3746-' 
34 15..- 




















1349 
3910# 


2424 


3a9i# 


















2505 
3775 
1570 


2522 
3827 
1682 


3899# 
3895# 
2447 


2463 


2531 


3897 


3900# 










•(7 27 
1980 
2131 
2291 
2925 


1763 
1967 
2140 
2300 
2947 


1736 
1990 
2147 
2307 
2996 


1809 
1999 
2156 
2316 
3029 


1843 
2008 
2165 
2325 
3908/^ 


1850 
2049 
2172 
2332 


1857 
2056 
2181 
2341 


1864 
2063 
2190 
2350 


1887 
2070 
2224 
2357 


1896 
2097 
2241 
2366 


1905 
2106 
2248 
2375 
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SPRNT3 

SRO 

SRI 

Sn2 

SR3 

STACK = 

START 

STARTA 

STARTI 

STKLIV1T = 

SWR 



020362 
1 77572 
1 77574 
1 77576 
172516 
001 1 00 
002640 
002654 
0061 04 
1 77774 
001 140 



2623 
148^ 
149^ 
ISCfi* 
151# 
31 # 
198 
232 
281 

42* 
303 
1739 
4032 



2672 
235 



229 
844f 
284 
1472 

316* 
2403 
4039 



2722 
251* 



345 
1482* 



3047 
4068 



SWREG 


0C01 75 


196* 


871 


895 


swo 


= 000001 


95# 






swoo ^ 


000001 


85 # 


95 




SW01 


= 00C002 


84* 


94 




SW02 = 


= 000004 


83* 


93 




SWC3 = 


= 000010 


82* 


92 




Sl'-04 : 


= 000020 


81* 


91 




SwCS : 


= 000040 


80* 


90 


406S 


SW06 


= 000100 


79* 


89 


1094 


SW07 : 


■~ 000200 


78* 


88 


3047 


SV.'OS : 


000400 


77* 


3'' 


1737 


SW09 : 


-- 001000 


76* 


8o 




SW1 


000002 


94* 






SW10 = 


= 002000 


75* 






SW11 


: 004000 


74* 






SW12 : 


= O'COOO 


73* 


925 


1025 


S'A'13 : 


: 02C0C0 


72* 






SW14 : 


= 04C000 


71 * 






SW15 


^ ICOOCO 


70* 






5:%' 2 


= 000D04 


93* 






SW3 


-- 000010 


9r ' 






Sv.4 


= 0CCC20 


91* 






S'.vS 


C00040 


900 


3742 






= C C 1 C 


C9* 


3738 


3761 



2771 2820 2870 
928* 1028* 1491 



-:47* 
1486 

852 
3591 
41 73 
4313 



854 



560 

3057 3110 

863* 865 

3593* 3644 

4181 4194 
4329 



3907;? 
3141 • 



871 * 
3646* 
4201 



3738 
4313 



895 
3742 
4358* 



925 
3761 



1025 
4003 



1094 
4022 



1737 
4024 



T IMOUT 

TKVEC =. 

IMA? 

TWr-FAD' 

TMPLAD 

TMPPT 



TRAPVE^= 
TRTVEC:- 
T ST MAP 



-I C 
OC' 000 
COOOl 4 



C01 ^.64 
001 575 
001 550 



00C034 
000014 
001 530 



87* 
36* 
128* 
bSO* 
203 
135* 
1 1 84 
537* 
543* 
525* 
32 13.- 
3313* 
1 056 
136* 
13-1* 
1 29* 
5l2ff 
3353 



290 7* 
1 023* 



331 5 
1078 



3155 
3355 



295G 
1035 



3344 

31:^9* 

31 73* 

3250 

3324* 

3944 



3158 
3362 



4065- 
3271 - 
3177 
3252 
3325'-' 
4 9S3-' 



3180 
40-2- 



4070 4072* 4094 

3290* 3293 4081 ♦ 

3178* 3160 3182 

3272* 3273* 3273* 



3132 3192 
4083* 4084* 



3205 
4085* 



40 36* 
4102 
3184 
3279* 



3262 
4038 



4097* 
41 04* 
3186 
3281 



5264 
4090* 



4098 
4105 
31 98* 
3283 



3281 
4091 * 



4113 
41 13 
3203* 
3285 



3283 
4100* 



41 35 
4140 

3205 3208 
3287 3310* 



3305 
41 01 * 



3515 
4107* 
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4108* 


4115 


41 17 




TST1 


006166 


1 4:o 


1492 


1504* 




TST10 


007040 


1 738 


1742 


1751* 




TST1 1 


0071 22 


1 757 


1 77'*' 






TST12 


007206 


1 797# 








TST13 


007270 


1B19# 








TST14 


007614 


1 023 


1921# 






TST15 


010144 


1925 


2024# 






TST16 


01 0766 


2028 


2209# 






TST17 


011610 


2213 


2398^ 






TST2 


006312 


1 550* 








TST20 


01 2462 


2405 


2550* 






TST21 


01 2576 


2607# 








TST22 


012666 


261 ■, 


2656# 






TST23 


012760 


2660 


27C5# 






TST24 


01 3056 


2709 


2755* 






TST25 


01 31 50 


2759 


2804# 






TST26 


01 3242 


2808 


2853* 






TST27 


01 3335 


2657 


2903* 






TST3 


006406 


1 587^' 








TST30 


01 3552 


2974(¥ 








TST31 


01 3664 


3007# 








TST32 


C 1 4004 


569 


1 508 


3041 * 




TST4 


00651 2 


1 627# 








TST5 


006602 


1 662# 








TST6 


006676 


1 704# 


1 744 






TST6A 


006704 


1 101 M 


1/45 






TST7 


006726 


1 71 8/S^ 


1 744 






TYPMAP 


0204 1 2 


1 005 


1 246 


391 8* 




UNEXPT 


026501 


3701 


5077* 






UP = 


000000 


1 75* 


31 2S 


31 26 


31 27 


WWP 


001612 


549* 


1 1 53 


1 1 57 


1 1 i 


WWPBYT 


1 1 652 


2409^ 








WV'JPBO 


011616 


2401 # 








WWPB1 


011712 


24 1 8# 


2544 






VJ W P B 2 












WWPB3 


012326 


2500 


2509* 






WWPB4 


012416 


2450 


2456 


2535* 




WW PBS 


012442 


2415 


242 1 


2542* 




W3X9 


016256 


1828 


1930 


2033 


2218 


SAPTHD 


001 330 


456 


462* 






SAPTR 


001512 


499(5- 


4692 


4713 




SASTAT 


001344 


472# 


499 


4681 


4685 


SASTEN 


001510 


498# 








SATYC 


024C50 


4652 


4654* 






SATYI 


024024 


4650* 








$ATY3 


024032 


4596 


4651* 






SATY4 


024042 


4190 


4653* 






SATY6 


024340 


471 ^M 








SATY7 


024404 


A122t) 








SAUTOB 


001 1 34 


357# 


902* 


432 


4495 


SBASE 


001260 


425# 








SBOADR 


001 122 


352^* 


587 


590 


592 


SBDDAT 


001 126 


354ff 


573 


575 


581 


SBELL 


001 174 


376# 


4176 


4213 




SCDWI 


001264 


427# 









3128 
2432 



3132 
2439 



3497* 
584 



3699* 
5o7 



C2OMCF0 
C20MCF . ? 

$CDW2 
SCHARC 
SCKSWR 
SCMTAG 



1 1 
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SCM3 = 

iCNTLG 
SCNTLU 
SCPUOP 
SCRLF 

SD3LK 

SDDWO 

SDDW1 

3-DDW1 

SDDW1 1 

S0DW12 

SDDW13 

SDDW14 

SDDW15 

$D0W2 

$DDW3 

iDDW4 

$DDW5 

$DDW6 

S0DW7 

SDDWB 

SDDW9 

SDEVCT 

SDEVM 

SDOAGN 

SOTBL 

StNDAD 

SENDCT 

SENCMG 

SENULL 

S3NVM 

SCO? 

SIOPCT 

S£RFLG 

SERMAX 

SERROR 



SERRTB 
SlRRTY 
RTTL 
SESCAP 
SETABL 



001266 
024020 
022364 
001 1 00 
000000 
000004 
02331 1 
023304 
001232 
001201 

024654 
001270 
001 272 
001314 
001316 
001320 
001322 
001324 
001326 
C01274 
001 276 
001300 
001 202 
CO 1 204 
001 306 
0C1310 
001312 
001 214 
001 262 
014254 
024644 
1 4222 
014156 
014260 
0142 75 
001 224 
001 225 
014126 
01 4 1 50 
001 1 03 
001 1 15 
021640 



SERRPC C01116 



001 1 12 



428* 
4613* 
4005 
340* 
370* 
370* 
4325 
4349 
399* 
378* 
4553 
4765 
429* 
430* 
439* 
440* 
441 * 
442* 
443* 
444* 
431* 
432* 
433* 
434* 
435* 
436* 
437* 
438* 
390* 
426* 
3082 
4769 
215 
858 
3087 
3094 
395* 
396* 
3046 
658* 
343* 
3 .9* 
1299 
1810 
2000 
2157 
2317 
2505 
2997 

350* 
4180 
567 
4133 
34 



4623* 4630 4639* 

4149 4163 4200 
849 850 858 

3-71* 372* 373* 
44:^0* 

4458 4489* 

10C7 1251 3065 

4612 4647 

4801 4809* 



3090 
4805* 

886 
3084* 
31 1 1 * 
31 1 4* 

893 

876 
3043 
3091* 
3S92 
4030 
1310 
1 S'-' • 
20ri9 
2165 
2325 
2523 
3030 

573 

421 3 
7 t 4* 

422 1 * 



210. 
31 00* 



4644* 
4313* 



3107 
4208 



914 


3053 


3106 


4187 


4591 


4659 


4698 










4593 


4598 


4661 


















3075* 






















3095 






















4022 


4030 


4036* 


41 46 


4170* 


4213 












4053* 


4146 




















1317 


1350 


1518 


1535 


1571 


1610 


1646 


1683 


1728 


1764 


1787 


1851 


1858 


1865 


1868 


1897 


1906 


1947 


1954 


1951 


1968 


1991 


2050 


2057 


2064 


2071 


2093 


2107 


21 16 


2123 


2132 


2141 


2148 


2173 


2182 


2191 


2235 


2242 


2249 


2256 


2283 


2292 


2301 


2308 


2333 


2342 


2351 


2358 


2367 


2376 


2425 


2448 


2464 


2472 


2493 


2532 


2571 


2624 


2673 


2723 


2772 


2821 


2871 


2917 


2926 


2948 


349f. 


3710 


3723 


3770 


3776 


3828 


4164* 


4894 








575 


577 


579 


581 


584 


587 


590 


592 


594 


4178* 


4179* 


4229 


4236 





















4177* 
4204 



4213 
4206 



CZOMCFO 
CZOMCF . 

SETENO 
SFATAL 
SfF LG 
SF I LLC 
$F I LLS 
SGDADR 

SGDDAT 
$aET42 
iGTSWR 
ShD 

SHI BTS 

SHIOCT 

SICNT 

SI LLUP 

SI NT AG 

$ ITEMS 

$LF 

$LFLG 

SLPADR 

SLPERR 

SMADRI 

S'.'ADR2 

$MADR3 

i,V:ADR4 

SMAIL 

$MAMS1 

S'MMS2 

SMAMS3 

SV.BADR 
SViFLG 

Sf.'.SGAD 
SMSGLG 
SMSGTY 

SV.TYP1 

i:,iTYP2 

$V;TYP3 

SMTYP4 

SV;XCNT 

SNULL 

SNWTST= 



SCCNT 

SOWODE 

SOVER 

5PASS 

SPASTM 

SPRINT 
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0011 20 

0011 24 
014212 
022436 
000000 

00 1 330 
023510 
001 1 04 
000756 
00 11 35 
001114 
00 1 202 
024427 
001 1 C6 

001 1 10 
001 236 
00 1 242 
001 246 
001 252 
001 204 
001 234 
001 240 
001 244 
001 250 
C01332 
024426 
023327 
001 220 
0C1222 
001204 
02331 6 
001 235 
001241 
001 245 
001 251 
021626 
001 1 54 
000001 



0251 10 
0251 1 2 
021 1 1 2 
001212 
001336 
023512 



35li/ 
3904* 
353ft 
3095^/ 
900 
12 
463# 
1385 
344# 
295 
35S# 
348=^ 
379# 
4601 
345/^ 
346# 
4 2# 
41 6* 
41 9# 
422# 
3B5fi 
406# 
414)^ 
417# 
420« 
464^ 
4651 * 
4335 
39: ' 
393* 
385^ 
4323 
407# 
415# 
41 8# 
421fr 
4047 

366* 
1495A' 
1714^* 
2592# 
2881 
4842* 
4837* 
4009 
339» 
466f 
325 
1223 
3505 
4222 



461 6 
4647 
573 



1 398 
4043* 

31 1 
4363 
4180* 
4213 
4706* 
1436* 
4034 



4657 

4493# 

4667* 

4672* 

4665 

4491# 



41 45<^ 
461 8 
1437 
1715 
2584 
2to1 # 
4e72» 
4841 * 
402 7 



888 
1229 
3700 
4245 



4696 
4647 

575 
3909* 
575 



1409 
4044 

330# 
44 95 
41S9 
4479 
4733* 
1487* 
4051 * 



4670 
471 ?• 
4672* 



4647 
1541* 
1747* 
2631 * 
2953 

4846 
4035 
307t* 

931 
1233 
37 IS 
4247 



577 
377 



1412 + 
4046*' 



4213 
4489 



1744* 
4145 



4732; 
4713* 
4700 



1543 
1 749 
2633 
3004*; 

■ 4849* 
4045 
3079-^ 

961 
1241 
37S7 
42_1 



579 
581 



4360* 
4054* 
3088 



581 
584 



584 
587 



587 
3494* 



596 
3892* 



3496* 3891* 3900* 3903* 
3910" 



1414 1425 
4145 



4226 
4533 



4034* 4050* 
4203 



4133* 4145 



1578# 1560 1618* 
1771# 1794# 1816ff 
2680* 2682 2730? 



1620 

1918# 

2732 



1653# 
2021# 
2779*' 



1655 1694* 1695 1697 
2206* 2390* 2392 2547* 
2781 2828* 2830 2879* 



1 1 1 



4041 4060 4036 4146 



1006 1014 1032 

1250 1270 1373 

3835 3660 3922 

4253 4292 4298 



1045 1055 1077 1115 1209 1217 

1400 1445 1457 3064 3086 3093 

3943 3950 4076 4120 4175 4104 

4324 4327 4334 4348 4361 4382 
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CROSS 
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TABLE ■ 






4439 


4446 


4452 


4457 


4463 






46^0 


4870 


4942 


4952 




SPWRAD 


000752 


328* 










$PWRDN 


000610 


295* 


32'' 


856 






SPlvRYG 


000746 


326* 










SPWRUP 


000562 


305 


31 1 * 








SOUES 


001 200 


377* 


421 3 


4383 


4470 


4489 


SRDCHR 


022670 


4396* 


4432 








SRDLIN 


023010 


4424* 


451 8 








SRDOCT 


023340 


1 379 


1406 


1463 


4509^. 




$RDS2 = 


COOOl 


441 7* 










$SAVR6 


00C762 


304* 


312 


313* 


314* 


332* 


SSCQPE 


020630 


1505 


1551 


15S8 


1623 


1663 






221 r 


2399 


2551 


2608 


2657 






4001 * 










SSETU?^ 


0001 30 


188* 


855 


856 


858 


859 


SSTUP = 


1 77777 


44E5 
188* 










SSVLAD 


021 056 


4017 


4048* 








SSVPC = 


OOC010 


213* 


218 








SSWR = 


167400 


1 * 


1 2 




13 


19 






376 


859 


1510 


1553 


1590 






1 927 


203€ 


2215 


2401 


2553 






301 


3072 


3077 


3096 


31 10 






4022 


4023 


4028 


4029 


4030 






4158 


41 59 


4160 


4173 


4181 


5SWREG 


001 226 


397* 


L/8 








SSWRMKr, 


000340 


1 * 


24 


25 


3997 


3998 


STESTN 


C01210 


308* 


4049* 








ST IfviES 


C01 1 70 


279* 


374* 


3041 * 


3077* 


4037* 


STKB 


001 1 46 


363* 


43CG 


431 7 


434 1 


4400 


STKS 


001 1 44 


352* 


4306 


4215 


4333 


4365* 


STMPO 


001 150 


370* 


579 


581 


534 


592 


J IMPI 


001 1 62 


371* 


592 


594 


595 


3096* 


iTyiP2 


001 1 64 


372* 


970* 


971 * 


974* 


9B5* 


STMP3 


001 1 65 


373* 


598 


950* 


9 .■ i * 


982* 


STN 


000032 


1 * 


1 2 


1435 


1510- 


1541 






1 707* 


1714 


1716 


1 721 * 


1 734 






1819 


1025* 


1916 


1921 


1927* 






2547 


25=3* 


2582 


2607 


2613* 






2761 * 


2779 


2604 


2810* 


2828 


ST PB 


001 1 52 


365* 


4636* 


4647 






STPFLG 


001 1 57 


369* 


4535 


4647 






STPS 


001 1 50 


364* 


4634 


4647 






SI 5TM 


CO 1334 


-.65* 










STSTNM 


COi 102 


280* 


34 2* 


1743* 


3042- 


3992 






4213 










ST T YIN 


032274 


4.J26 


4427 


4443 


■'■ ^66 


4484 






1049 


1 050 


1092 


3509 


4279 


STyPDS 


02-1432 


3092 


4274 


47 53* 






ST YPE 


073540 


4554 


4585* 


467 ■ 






ST 'r PEC 


02:^754 


4337 


45 1 5 


46 2 2 


4629 


4634* 


ST YP£X 


C2-1C22 


4 640 


46-2 


454£# 






STYPOC 




1 240 


4234 


4257 


4333 


4840* 






4839 


4842* 








STYPOS 


C24664 


3963 


397 1 


41 2C 


4287 


4835* 
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4465 


4469 


4473 


4478 


4547 


4549 


4559# 


461 1 


4550 


4553 


4647 












1705 


1719 


1752 


1775 


1798 


1820 


1922 


2025 


2706 


2756 


28C5 


2854 


2904 


2975 


3008 


3039 


886 


890 


3077 


4002 


4165 


4197 


4208 


4308 


20 


21 


22 


23 


24 


329 


374 


375 


1630 


1655 


1707 


1721 


1754 


1777 


1800 


1825 


'2613 


2662 


271 1 


2761 


2810 


2859 


2906 


2977 


31 1 1 


3993 


3994 


3995 


3996 


3997 


4008 


4020 


4037 


4038 


4039 


4051 


4054 


4145 


4156 


4157 


4194 


4201 


4213 












4024 


4025 














4044 


4047* 


4145 












4406 
















4398 


4404 














594 


596 


3377* 


3387* 


3389* 


3895* 


3899* 


3907* 


1363 


1411 














964* 


986* 


1412 


4893* 










1553* 


157.8 


1590* 


1618 


1630* 


1653 


1665* 


1694 


1747 


1 754ft- 


1757 


1771 


1777* 


1794 


1800* 


1816 


2021 


2024 


2030* 


2206 


2209 


2215* 


2390 


2401 * 


2631 


2655 


2652* 


2680 


2705 


2711* 


2730 


2755 


2853 


2859* 


2879 


2906* 


2951 


2977# 


3004 


3010* 


4026 


4048* 


4049 


4054 


4062 


4124 


4146 


4172 



4468* 
4904* 



4635 
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SUN IT 


001216 


391 # 
















SUNITM 


001340 


467# 
















SUSWR 


001 230 


398# 
















$VECT1 


001 254 


423* 
















S\/ECT2 


001 256 


424# 
















SVERPC 


001514 


504# 




577 


579 


581 


584 


587 


590 


SXTSTR 


020654 


4011* 
















SOFILL 


0251 1 1 


4836* 


4840* 


4850 


4836/^' 










$40CAT= 


^ u 


4008 


4183 
















0321 10 


1 90# 


194* 


205* 


213 


214* 


215* 


218* 


219* 






A53f 


4 5 '.■■-* 


457* 


534 ^' 


697* 


853 


908 


3111 






4488* 


4499 


4495 


4F'53 


4647 


4735* 


4809-T 


ssai* 


.CONST 


001610 


548* 


1454* 


1707 


1721 










.EIGHT 


001642 


56a# 


4736 














. ERRTB 


001640 


567* 


4242 














.MP PAT 


001634 


565# 


1754 














.MPRX 


001630 


563* 


2431 


2438 


2461 


2499 


3705 


3749 


3764 


.MPRO 


001626 


552* 


2455 














. PBTRP 


001632 


564* 


2442 














. P!£SRV 


001636 


566* 


2446 


2453 


3746 










. RESRV 


001624 


561* 
















.STACK 


001522 


560* 


1482 














.TST32 


001644 


569* 


4079 














.5ASTA= 


u 


4651 


4654 














.SX 


001330 


452* 


457 














.3X9 


007302 


1825* 

















307 331 339* 380 452 

3115 4145 4146 4213 4306 
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TABLE — 
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ABORT 


1 * 


260 


3164 


3197 


3235 


3407 


3500 


3519 


3577 


3612 


3661 








CKSWR 


1 * 


4002 


41 '5 


4155 


4197 




















CKWD 


1 * 


1 307 


1515 


1532 


1607 


1643 


1680 


1725 


1761 


1784 


1807 


1841 


1848 


1855 




1895 


1 894 


1 903 


194^ 


1951 


1953 


1965 


1988 


1997 


20C6 


2047 


2054 


2061 


2068 




2104 


2113 


2120 


2129 


2133 


2145 


2154 


2163 


2170 


2179 


2188 


2232 


2239 


2246 




2280 


2289 


2298 


23:5 


2314 


2323 


2330 


2339 


2348 


2355 


2364 


2373 


2490 


2520 




2621 


2570 


2720 


2769 


2818 


2868 


2914 


2923 


2945 


2994 


3027 








CKWD2 


1 * 


1514 


1605 


1723 


1760 


1339 


1847 


1854 


1861 


1883 


1893 


1902 


1942 


1950 




1954 


1 986 


1996 


20C5 


2045 


2053 


2060 


2067 


2093 


2103 


2112 


21 19 


2128 


2137 




2153 


2162 


2169 


2178 


2187 


2230 


2238 


2245 


2252 


2278 


2288 


2297 


2304 


2313 




2329 


2338 


2347 


2354 


2363 


2372 


2567 


2992 


3025 












COWMEN 




138* 


833 


1476 






















ENDCOM 


1 * 


12 


1 38* 


842 


1480 




















ERROR 


32* 




























ESCAPE 


1 * 


138* 


























GETPRI 


1 * 


138* 


























GETSWR 


1 * 


138* 


890* 
























GTSWR 


1* 


897 


























LDPDR 


1 * 


3124 


31 26 


3127 


3128 


31Ci 


















MORETA 


232-i 


447 


























MULT 




138* 


























NEWTST 


1 * 


138* 


1495 


1541 


1578 


1618 


1653 


16S4 


1714 


1747 


1771 


1794 


1816 


1918 




2206 


2390 


2547 


2582 


2631 


2630 


2730 


"2779 


2828 


2879 


2961 


3004 






POP 




138* 


316 


317 


2515 


2528 


3391 


3408 


3510 


3602 


3640 


3727 


3753 


3781 




3854 


3852 


3882 


3974 


3981 


4541 


4708 


4709 


4720 


4729 


4795 


4947 






PRINT 


1 * 


931 


961 


1006 


1014 


1031 


1045 


1055 


1077 


1115 


1209 


1217 


1223 


1229 




1 241 


1 373 


1399 


1h ,5 


1456 


3063 


3505 


3700 


3718 


3797 


3835 


3860 


3922 


4076 




4942 


4952 


























PUSH 


1* 


13S* 


297 


303 


2474 


2497 


3380 


3398 


3481 


3520 


3537 


3633 


2703 


3743 




3789 


380S 


3816 


3875 


3926 


3952 


451 1 


4654 


4656 


4677 


471 1 


4722 


4753 


4904 


RDCHR 


1 * 


4429 


























RDDEC 


1* 




























RDLIN 


1* 


4514 


























RDOCT 


1 * 


1 376 


1403 


1460 






















REPORT 


1 * 


138* 


























RESREG 


1* 




























SAVREG 


1 * 




























SCOPE 


33* 




























SCOPEX 


3987* 


4056 


























SCOPIN 


39B7* 


4006 


























SETPRI 




138* 


























SETUP 


1 * 


138* 


847 
























SIMTRP 




897 


1237 


1376 


1403 


1460 


3089 


3960 


3968 


4002 


4125 


4146 


4165 


4197 




4264 


427' 


4284 


4330 


4429 


4515 


4561 
















SKI P 




138* 


1757 
























SLASH 




136* 


621 


631 






















SPACE 


138A 




























STARS 


1 ^ 


138* 


211 


220 


225 


293 


309 


335 


380 


383 


449 


45^ 


458 


471 




503 


554 


553 


570 


572 


602 


604 


942 


951 


1019 


1022 


1088 


1091 


1 122 




11'; 2 


1 146 


1203 


1 20S 


1277 


1231 


1323 


1326 


1366 


1 368 


1495 


1503 


1541 


1549 




1 586 


- 618 


1626 


1653 


166 


1690 


1693 


1694 


1 703 


1714 


1717 


1747 


1750 


1771 




1 794 


1 796 


1816 


1813 


1833 


1835 


1376 


1878 


1913 


1920 


1936 


1938 


-979 


1981 




2C23 


2 038 


2040 


2083 


2080 


2206 


2208 


2223 


2225 


2271 


2273 


2390 


2397 


2547 




2562 


2 606 


2631 


2655 


26S0 


2704 


2730 


27-4 


2779 


2803 


2828 


2852 


2879 


2902 




2973 


3004 


3006 


3066 


31 17 


3123 


3145 


3 • 47 


3244 


3249 


3334 


3339 


3372 


3375 




3396 


3413 


3415 


3423 


3425 


3446 


3448 


3478 


3480 


3514 


3516 


3607 


3609 


3654 



1862 
2095 
2253 
2568 

1957 
2144 
2322 



1232 
4119 



501 
1 131 
1578 
1773 
2021 
2549 
2961 
3394 
3658 
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CROSS 
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TABIE 




3654 


3698 


3732 


3735 


3756 


3758 


3784 




4152 


4213 


4305 


43! a 


4363 


441 7 


4497 




51 1 6 


5118 


5255 


5257 


53C4 


5306 




SWRSU 


1 


1 38^ 


G59* 










SWR0R3 




2074 


2079 


2 1 34 


21 99 


2259 


2264 


1 REGS 


1 495^ 


1 4S7 


1 543 




162C 


1 655 


1697 


T YPADR 




1 048 


1 059 


1 081 


3508 


4278 




T Y P B I N 


1 f 


1 38*^ 












TYPBN 
















TVP3YT 


1 ^- 


4 1 23 


4281 










TV PDEC 


1 * 


1 36^ 


3088 


4270 








TYPDS 




308S 


4271 










TYPE 


1 ^ 


325 


868 


931 


961 


1 006 


1014 




1 229 


1 233 


1 241 


1 373 


l-C'OO 


1445 


1457 




3860 


3922 


3943 


3950 


4076 


4120 


41 75 




4324 


^326 


4334 


434 8 


4330 


43B1 


4439 




4547 


^^549 




4800 


4870 


4942 


4952 


T YPN AM 


1 it 


1 36# 


^882 










TYPNUM 


1 M 


1 33* 












TYPOC 




1 237 


4231 


4254 


4330 






TYPOCS 


1 fi 


1 38# 




3966 








TYPOCT 


1 ft 


1 3S# 


1^236 


4229 


4253 


4329 




T YPON 


1 fi 














TYPOS 


1 


3 96 v.' 


3968 


4125 


4234 






TYPTXT 




1 38# 












SCKIVO 


1 # 


1 308 


1 348 


1516 


'533 


1569 


1 608 




1856 


1 853 


1 886 


1 395 


'904 


1945 


1952 




2069 


2036 


2 1 05 


2114 


2121 


:ci30 


2139 




2247 


2254 


2281 


2290 


2239 


2306 


2315 




2491 


2521 


2530 


2569 


2622 


2671 


2721 


SINDN 


1 # 


• 526 


1 564 


1 59 1 


1 66l 


1676 




SINMM 




1511 


1 554 


160 2 


■,631 


1640 


1708 




1940 


1 933 


2032 


2043 


2091 


221 7 


2228 




2862 


2906 


2977 


2990 


3010 


3023 


3416 




1 ? 


1 53E 


1 574 


1 596 




16S6 




SMMUP 


1 » 


1 522 


1 558 


1614 


1634 


1649 


1710 




1 975 


2016 


2034 


2C82 


2202 


2219 


2267 




2931 


3001 


3014 


3034 


3419 






SSCKWD 




1 293 


1309 


1316 


1349 


1517 


1534 




1343 


1 850 


1857 


1864 


18S7 


1896 


1905 




2056 


2063 


2070 


2097 


2106 


21 15 


2122 




2234 


2241 


22-^8 


2255 


2282 


2291 


2300 




2375 


2424 


2447 


2463 


2471 


2492 


2505 




2870 


2916 


2925 


294 - 


2996 


3029 


3721 


SSCMRE 


333'* 














SSCMTM 


333* 


370 


371 


372 


373 






SSESCA 


1 # 


136# 












SSNEWT 


1 


1 36* 


1495 


1541 


1578 


1616 


1653 




2206 


2390 


2547 


2582 


2631 


2630 


2730 


$SSETM 


875.=- 














SSSKIP 


1 ?f 


138* 


1757 










.CHBHD 




2963 












.CI 1 


2390# 


2392 












.DIDBH 


25a0ff 


2582 












.D1D3L 


2631^ 


2633 












.DIDO 


2582* 


2584 
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3768 


3872 


3874 


3887 


3890 


3914 


39 1 7 


3989 


4554 


4558 


4570 


4649 


4740 


4812 


4959 


4962 


2379 


2334 


3473 












1032 


1045 


1055 


1077 


1115 


1209 


1217 


1223 


3064 


3085 


3093 


3505 


3700 


3718 


3797 


3835 


4184 


4222 


4245 


4247 


4251 


4253 


4292 


4298 


4446 


4452 


4457 


4463 


4465 


4468 


4473 


4478 


1 644 




1 726 


1 762 


1 785 


1 808 


1 842 


1 849 


1959 


1966 


1 9S9 


1998 


2007 


2048 


2055 


2062 


2146 


2155 


2164 


2171 


2180 


2189 


2233 


2240 


2324 


2331 


2340 


2349 


2356 


2355 


2374 


2423 


2770 


2819 


2869 


2915 


2924 


2946 


2995 


3028 


1722 


1758 


1779 


1802 


1827 


1837 


1880 


1929 


2276 


2408 


2555 


2616 


2665 


2714 


2764 


2813 


1731 


1767 


1790 


1813 


1829 


1872 


1915 


1931 


2387 


2577 


2528 


2677 


2727 


2776 


2825 


2875 


1570 


1609 


1645 


1682 


1727 


1763 


1786 


1809 


1946 


1953 


1960 


1967 


1990 


1999 


2008 


2049 


2131 


2140 


2147 


2156 


2165 


2172 


2181 


2190 


2307 


2316 


2325 


2332 


2341 


2350 


2357 


2366 


2522 


2531 


2570 


2623 


2672 


2722 


2771 


2820 


3769 


3774 


3826 












1694 


1714 


1747 


1771 


1794 


1816 


1918 


2021 


2779 


2828 


2879 


2961 


3004 
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. DIPDO 


2730* 


2732 


. DPDBH 


2828* 


2830 


.DPDBL 


2779* 


27B1 


. EOUAT 


1 * 


28 


. ERROR 


1 ^ 


1 299 




1 344 


1 851 




2057 


2064 




2235 


2242 




2376 


5425 




2071 


2917 


.HEADE 




2 


.KT1 1 




140 


.MARHD 


2879* 


2831 


.SCOPE 




1 504 




2393 


2550 


. SETUP 


1 * 


188 


, SWRHI 




13 


. SWRLO 




25* 


. TM7 


1714^ 


1716 


.SACT1 




209 


. S-APTB 


1 * 


381 * 


. SAPTH 


1 * 


447 


. SAPT Y 




^647 


.SASTA 




469 


.SCATC 




188 


. SCMTA 




333 


.$DB2D 






.$DB20 






. SDIV 






. 5.E0P 




3056 


.SERRO 


1 * 


4150 


. SERRT 




4213 


. S.f.luLT 


1 * 




.SPOWE 




291 


. SRAIJD 






. S-nDDE 






.SRCOC 




4 495 


. iREAD 




4303 


. JR2A2 


1 * 




.S.SAVE 






. SSB2D 






.SS320 






. 




3987 


.SSI2E 






.S5UPR 






. STRAP 






. STYPB 






. STYPD 




4740 


.STYPE 




4568 


. ST Y?0 




4810 


. $40CA 


1 * 




. 1 1 70 







1310 


1317 


1350 


1518 


1535 


1571 


1610 


1646 


1583 


1728 


1764 


1787 


1810 


1858 


1865 


183B 


1897 


1906 


1947 


1954 


1961 


1968 


1991 


2C00 


2009 


2050 


2071 


2098 


2107 


21 16 


2123 


2132 


2141 


2148 


2157 


2166 


2173 


21 82 


2191 


2249 


2256 


2283 


2292 


2301 


2308 


2317 


2326 


2333 


2342 


2351 


2358 


2367 


2448 


2464 


2472 


2493 


2506 


2523 


2532 


2571 


2624 


2673 


2723 


2772 


2821 


2926 


2948 


2997 


3030 


3498 


3710 


3723 


3770 


3776 


3828 


4894 






155c 


1537 


1627 


1662 


1704 


1718 


1 751 


1774 


1797 


1819 


1921 


2024 


2209 


2607 


2656 


2705 


2?55 


2B04 


2BE3 


2903 


2974 


3007 


303Q 
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SEO 0204 



ERRORS detected: 

C20MCF. BIN.CZQMCF . LST/CR F/50L/NL : TOC = C20IV!CF . SML , CZQMCF . P11 
RUN-Tir.'S: 21 28 1 SECOMDS 
RUN-TIME RATIO: 130/51=2.5 
CORE used: 39K (77 PAGES) 



